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PREFACE 


Preface 

The  Department  of  Defense  funded  the  development  of  the 
Ada  programming  language  in  an  effort  to  significantly 
reduce  costs  for  programming  embedded  computer  systems.  As 
the  language  evolved,  it  became  apparent  that  its  power 
would  be  useful  in  a  wide  range  of  other  programming 
applications  as  well.  Since  the  Department  of  Defense  has  a 
large  number  and  wide  variety  of  small  computers,  all  of 
which  could  benefit  greatly  from  Ada,  it  seemed  that  a 
portable  compiler  could  be  extremely  valuable.  One  proven 
implementation  of  a  portable  high-level  Language  compiler  is 
UCSD  PASCAL  which  generates  code  for  a  hypothetical 
processor  called  a  pseudo-machine.  To  run  this  code  on  an 
actual  computer  requires  a  software  program  to  simulate  the 
pseudo-machine.  This  approach  allowed  PASCAL  to  be 
available  on  many  different  small  computers.  Investigation 
of  the  same  techniques  used  in  this  implementation  would 
possibly  be  the  Key  to  providing  a  portable  Ada  compiler. 
Initiating  such  research  at  AFIT  would  provide  a  test  bed 
for  development  of  this  concept  and  provide  a  basis  for 
further  research  in  Ada  and  its  programming  environment. 
This  seemed  like  a  good  prospect  for  a  thesis  topic,  since 
both  AFIT  and  the  Air  Force  could  benefit. 


The  preliminary  reference  manual  for  Ada  was  released 
about  the  same  time  I  started  my  first  compiler- theory 
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class.  As  time  passed,  ray  interest  in  both  Ada  and  compiler 
theory  grew,  as  did  ray  desire  to  do  a  thesis  topic  that 
would  combine  both  subjects.  When  Capt  Roie  Black,  and  Maj 
Alan  Ross,  AFIT  professors,  voiced  interest  in  the  design  of 
an  Ada  pseudo-machine,  I  felt  that  this  would  be  the  perfect 
topic  for  me.  Designing  the  pseudo-raachine  would  require 
integrating  techniques  from  several  areas  in  the 
computer- science  field.  Compiler  theory,  data  structures 
and  computer  architecture  are  all  intertwined,  offering  a 
potentially-rewarding,  learning  experience. 

My  initial  stab  at  this  topic  was  to  design  the 
pseudo-machine  and  then  build  a  test  compiler  to  exercise 
the  design.  This  uncoupled  development  of  the 
pseudo-machine  and  the  compiler  turned  out  to  be  incorrect. 

The  process  of  defining  a  pseudo-machine  for  a  language 
is,  in  fact,  closely  coupled  to  the  development  of  a 
compiler  for  that  language.  Niklaus  Wirth,  designer  of 
PASCAL,  stated  that  the  purpose  of  a  pseudo-machine  was  to 
"keep  the  description  of  the  compiler  reasonably  simple  and 
free  from  extraneous  considerations  of  peculiar  properties 
of  a  real,  existing  processor  (Ref  14:331)".  If  this  is  the 
case,  defining  the  Ada  pseudo-machine  without  developing  the 
compiler  would  be  difficult,  since  the  success  of  the 
pseudo-machine  is  measured  by  how  well  the  machine  supports 
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the  compiler. 

Thus,  the  project  was  modified  to  permit  the  parallel 
development  of  the  compiler  with  the  definition  of  the 
pseudo-machine,  and  the  project's  scope  was  reduced.  The 
new  goal  became  an  integer-only  implementation  which 
incorporated  some  of  Ada's  more  interesting  features,  for 
example,  packages  and  tasks.  Additional  constructs  were 
studied  based  on  their  estimated  impact  on  the 
pseudo-machine's  architecture. 

Throughout  the  project's  development,  several  people 
sacrificed  their  time  to  offer  council,  suggestions,  and 
materials.  The  time  they  invested  immeasurably  improved  the 
project's  overall  quality.  Thanks  to  Capt  Koie  R.  Black, 
advisor,  who  proposed  the  topic  and  helped 'limit  its  scope. 
His  interest,  encouragement  and  suggestions  were  invaluable. 
Thanks  to  Major  Dan  Burton,  currently  assigned  to  the  Air 
Force  Avionics  Lab,  who  sponsored  the  project  and  allowed  me 
to  use  the  lab's  excellent  computer  facilities.  Thanks  also 
to  my  thesis-committee  members,  Lt  Col  Jim  Rutledge  and  Maj 
Alan  Ross.  Lt  Col  Rutledge's  indepch  knowledge  of  Ada  proved 
very  valuable.  He  sacrificed  numerous  hours  listening  and 
teaching,  and  he  also  composed  several  test  programs  to  help 
debug  the  project.  Major  Ross  served  as  a  thoughtful  critic 
who,  in  concert  with  Capt  Black,  identified  the  Ada 
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pseudo-machine  as  a  possible  thesis  topic.  Finally,  I'd 
like  to  thank  my  wife  whose  patience  with  a  full-time 
student  and  a  baby  boy  (born  during  my  first  quarter  at 
AFIT) ,  was  nothin^  short  of  miraculous. 
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ABSTRACT 


Abstract 

This  project  involved  defining  an  Ada  pseudo-machine 
and  developing  an  Ada  to  pseudo-code  test  translator.  The 
translator's  front-end  incorporates  a  table-driven  parser 
that  can  parse  the  entire  proposed-s tandard  Ada  language. 
The  translator's  semantic  routines  allow  integer  data 
objects,  several  control  structures,  procedures,  functions, 
packages  and  tasks.  These  routines  generate  pseudo-code 
that  is  executed  by  an  interpreter  program  included  in  the 
translator.  The  interpreter  constitutes  a  complete 
description  of  the  pseudo-machine  whose  architecture 
consists  of  multiple,  stack-oriented  processors  that  access 
a  common  memory.  Interesting  features  of  the  project 
include  the  hash-coded  symbol  table  that  supports  Ada's 
visibility  rules  and  the  pseudo-machine  architecture  that 
supports  Ada's  tasking. 
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1 .  Introduction 

Chapter  one  begins  with  background  information  on  the 
origin  of  the  computer  programming  language  Ada  and  with  a 
summary  of  the  features  which  have  resulted  in  its  rapid 
growth  in  popularity.  The  chapter  concludes  with  a 
description  of  how  Ada  can  be  implemented  on  a  micro  or  mini 
computer  and  with  an  introductory  description  of  the  thesis 
proj  ect . 

1.1  Background  --  Ada's  roots 

Increasing  software  costs  have  forced  the  Department  of 
Defense  to  search  for  budget  reducing  strategies.  An 
outgrowth  of  this  search  was  the  development  of  a  new 
computer  language  with  a  soon  to  be  familiar  name,  Ada.  Its 
introduction  met  with  both  opposition  and  enthusiasm,  but 
currently,  most  of  the  opposition  is  fading  and  Ada  is 
experiencing  a  broadening  appeal. 

1.1.1  The  problem  that  spawned  a  language 

Every  year,  more  and  more  money  is  spent  on  computer 
systems,  despite  precipitous  drops  in  computer  hardware 
costs.  These  falling  hardware  costs  have  been  matched  by  an 
equivalent  increase  in  software  costs,  and  now,  software 
looms  at  the  forefront  as  the  major  development  expense. 
The  Department  of  Defense  is  not  immune  to  this  problem,  and 
it  too  must  face  the  problem  of  rising  expenditures. 
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Within  DOD,  the  major  software  expense  is  for 
programming  embedded  computer  systems,  and  more  than  50%  of 
the  software  budget  goes  toward  satisfying  the  demand  for 
such  software  (Ref  4:6).  Why  is  programming  embedded 
systems  so  costly?  A  preliminary  study  showed  that  one  of 
the  problems  has  been  the  plethora  of  special-purpose 
languages  and  systems  used  to  program  them.  The  study 
showed  that  a  common  language  could  save  in  excess  of  1 
billion  dollars  a  year  (Ref  5) .  The  data  on  which  this 
estimate  is  based  can  be  found  in  appendix  1. 

1 .1  .2  A  solution  in  commonality 

To  correct  this  problem,  DOD  pursued  the  goal  of  a 
single,  high-level  computer  language  appropriate  for 
programming  embedded  systems  and  established  the  High  Order 
Language  Commonality  Program  in  1975  to  railroad  the  project 
(Ref  3:i).  The  program's  directors  compiled  a  set  of 
requirements  for  the  proposed  language  by  circulating  a 
request  for  language  requirements  throughout  the  military, 
civilian  and  industrial  communities  of  the  U.S.  and,  also, 
throughout  European  and  NATO  countries.  The  submitted 
requirements  were  integrated,  refined  and  then  returned  to 
the  respondents  for  approval.  After  several  such  cycles, 
the  resulting  set  of  requirements  was  deemed  necessary  and 
sufficient  for  all  DOD  embedded  computer  applications. 
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Several  existing  high-order  languages  were  examined  to 
see  if  one  satisfied  the  complete  set  of  requirements,  but 
none  did.  Therefore,  four  contractors  were  funded  to 
develop  a  language  which  would  meet  the  required 
specifications.  After  this  four-contractor 
competitive-design  effort,  a  single  language  emerged  and  was 
named  Ada.  Currently,  Ada  stands  at  a  major  transition 
point  in  its  development,  as  emphasis  shifts  from  the  design 
of  the  language  to  its  introduction  and  use. 

1.1.3  Ada's  broadening  appeal 

The  major  goal  of  Ada's  design  was  to  reduce  costs  for 
embedded-computer  software.  While  pursuing  this  goal,  DOD 
specified  requirements  for  a  working  environment  for  the 
language.  These  requirements  are  delineated  in  the 
document:  "STONEMAN,  Requirements  for  Ada  Programming 
Support  Environments",  Feb  1980.  The  stated  purpose  of  the 
programming- support  environment  is  to  "support  the 
development  and  maintenance  of  Ada  applications  software 
throughout  its  life  cycle,  with  particular  emphasis  on 
software  for  embedded  applications"  (Ref  3:1).  To  meet  this 
goal,  a  host/target  approach  to  software  construction  is 
adopted.  This  approach  entails  developing  programs  for  an 
embedded  target  computer  on  a  host  computer  that  offers 
extensive  support  facilities  (Ref  3:8).  The  document  goes 
on  to  specify  what  support  facilities  the  host  system  must 
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have . 


While  this  standard  environment  will  do  much  to  make 
Ada  a  powerful  and  popular  tool  for  programming  embedded 
systems,  the  language  has  features  that  have  opened  another, 
perhaps-larger,  market.  This  market  is  among  system  and 
applications  programmers  who  develop  software  for  use  on  the 
host  processor. 

Ada  has  several  features  that  have  stimulated  this 
interest.  Some  of  the  most  interesting  of  these  will  be 
discussed  briefly.  These  include  packages,  tasks,  separate 
compilation  and  the  promise  of  universality.  More  detailed 
information  can  be  found  in  the  Ada  reference  manual  (Ref 
2). 


Packages :  Packages  are  a  mechanism  for  isolating 
logically  related  structures  in  the  program  text  whether 
they  are  subprograms,  data  types,  variables,  nested 
packages  or  a  combination  of  these.  This  mechanism  clearly 
distinguishes  information  that  is  accessible  only  within  the 
package  from  that  which  is  accessible  to  the  rest  of  the 
program.  Information  accessible  only  within  the  package  is 
considered  'hidden'  and  cannot  be  altered  or  even  accessed 
outside  the  package.  This  provides  the  programmer  with  a 
powerful  tool  for  creating  abstract  data  types  whose 
implementation  details  are  completely  hidden  from  the  user, 


INTRODUCTION 


for  writing  modular  programs  with  enforced  module  boundaries 
and  for  writing  programs  that  can  be  more  easily  verified 
(Refs  2:7-1  -  7-11;  9:8-1 )  . 

Tasks :  Tasks  are  Ada's  construct  for  parallel 
processing.  A  task  is  known  to  other  tastes  in  the  program 
by  a  set  of  names  called  entries.  When  or.e  task  calls 
another,  one  of  these  names  must  oe  specified. 
Synchronization  of  the  two  tasks  is  achieved  when  the  called 
task  accepts  the  call  of  that  named  entry.  This  mechanism 
provides  the  programmer  with  a  simple,  but  powerful,  method 
for  specifying  parallel  activities  that  must  communicate 
(Ref  2:9-1  -  9-16) . 


Separate  compilation :  Ada  supports  separate 
compilation  as  opposed  to  independent  compilation.  The 
distinction  between  the  two  was  first  made  by  J.J.  Horning 
and  is  described  in  the  preliminary  reference  manual.  The 
description  is  reproduced  here  for  convenience. 


Independent  compilation  has  been  achieved  by  most 
assembly  languages  and  also  by  languages  such  as 
Fortran  and  PL/1 .  Compilation  of  individual  modules 
is  performed  independently  in  the  sense  that  such 
modules  have  no  way  of  sharing  knowledge  of 
properties  defined  in  other  modules. 

Independent  compilation  is  usually  achieved  with 
a  lower  level  of  checks  between  units  than  is 
possible  within  a  single  compilation  unit.  In 
consequence,  independent  compilation  came  into 
disrepute  and  was  rejected  by  safety  minded,  early 
typed  language  definitions  such  as  Algol  68  and 
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Pascal.  Fasc  compilation  of  the  complete  program 
was  often  advocated  by  promoters  of  these  languages 
as  a  safe  alternative  to  independent  compilation. 
Fast  compilation,  hovever,  has  its  limits,  and  it 
fails  to  answer  the  needs  of  confidentiality  and 
libraries. 

Separate  compilation,  on  the  other  hand, 
reconciles  type  safety  and  the  pragmatic  reasons  for 
compiling  in  parts.  It  is  based  on  the  use  of  a 
library  file  which  contains  a  record  of  previous 
compilations  of  the  units  which  form  a  program  (Ref 
9:10-1). 


In  summary,  independent  compilation  provides  little  or 
no  checking  for  comparability  between  individually  compiled 
modules.  On  the  other  hand,  separate  compilation  provides 
the  same  level  of  checking  between  individually  compiled 
modules  as  they  would  get  if  they  were  compiled  together. 

Universality:  Ada  holds  the  promise  of  being  a 
universally  accepted  standard  language.  The  list  of 
benefits  that  could  be  derived  from  such  a  language  would  be 
very  long,  and  one  can  only  hope  that  this  will  indeed  come 
to  pass  (Ref  4).  DOD's  mandate  that  Ada  will  be  "the" 
language  for  programming  embedded  systems  is  the  foot  in  the 
door  for  such  a  possibility.  Hopefully,  this  door  will  open 
completely  as  DOD  and  commercial  interests  cash  in  on  the 
language's  powerful  features. 

Collectively,  these  features  support  the  concept  of 
standard  software  components  first  espoused  by  M.D.  Mcllroy 
in  1969,  and  enthusiastically  supported  by  Jean  D.  Ichbiah 
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at  the  ACM  SIGPLAN  conference  on  Ada  in  1980. 
Over-simplifying,  a  software  component  refers  to  a 
functional  module  that  has  been  coded  and  verified.  Such  a 
component  could  be  "manufactured"  by  a  specialty  company  and 
then  be  compiled  with  other  such  components  into  software 
catalogs.  On  the  "consumer's"  side,  software  developers 
could  refer  to  these  catalogs  and  choose  those  components 
needed  for  their  project.  Once  delivered,  the  components 
could  be  "wired"  together  to  create  the  finished  system. 
Since  the  functional  modules  are  already  assembled,  tested 
and,  possibly,  guaranteed  by  the  manufacturer,  less  time 
should  be  necessary  for  system  development  and  testing. 
Ada's  features  have  sparked  the  hope  that  standard 
components  may  soon  be  a  reality. 

1 .1 .4  Ada  and  the  small  computer 

A  large,  potential  market  for  software  components,  and 
thus  for  Ada,  exists  among  micro  and  mini  computer  users. 
However,  these  users  must  have  Ada  running  on  their  machines 
in  order  to  use  these  components.  Since  small  machines 
generally  cannot  support  an  extensive  environment,  they  must 
have  a  specially  designed  Ada  language  environment  tailored 
to  their  capabilities. 

Hosting  Ada  on  small  machines  is  a  topic  reminiscent  of 
the  UCSD  PASCAL  effort  where  PASCAL,  a  language  seemingly 
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too  complex  Co  host  on  a  micro,  was  quite  successfully 
implemented.  The  excellent  results  achieved  by  the  UCSD 
PASCAL  project  served  to  motivate  this  investigation  of  the 
same  techniques  as  applied  to  Ada.  The  project  reported  in 
this  paper  specifically  deals  with  the  concurrent 
development  of  an  Ada  pseudo-machine  and  an  Ada  to 
pseudo-code  translator,  with  emphasis  on  the 
pseudo-machine's  architecture.  Some  of  the  results  of  the 
project,  namely  the  pseudo-machine  definition  and  the 
semantic  routines  from  the  translator,  could  serve  as  a  good 
starting  point  for  the  implementation  of  an  Ada  environment 
on  a  micro-computer  host.  The  following  section  describes 
the  pseudo-machine  approach  and  then  introduces  the  project 
more  fully. 

1 .1 .5  Needed  --  a  portable  compiler 

The  most  important  part  of  this  micro/mini  Ada 
environment  is  the  compiler.  Since  there  is  a  variety  of 
processors  in  the  micro  and  mini  class,  the  compiler  program 
should  be  written  incorporating  techniques  that  enhance  its 
portability.  A  technique  that  achieves  this,  with  excellent 
results,  is  the  pseudo-code  compiler.  In  this  technique, 
the  compiler  generates  code  (pseudo-code)  for  a  hypothetical 
processor.  This  processor's  instruction  set  is  specifically 
designed  to  make  the  compilation  task  easier  and  more 
straight-forward  than  attempting  to  generate  code  for  an 
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actual  processor.  The  pseudo-code  is  then  executed  by  an 
interpreter  program  which  runs  on  the  actual  processor.  The 
steps  necessary  to  develop  such  a  compiler  are  briefly 
outlined  below. 

1.1  .5.1  The  pseudo-code  compiler 

The  first  step  toward  developing  a  pseudo-code  compiler 
is  to  write  the  Ada  to  pseudo-code  compiler  program  in  a 
suitable  language  on  a  host  processor.  The  resulting 
program,  called  a  cross  compiler,  accepts  Ada  source  text  as 
input  and  generates  pseudo-code  for  the  hypothetical 
processor  as  output.  Now,  a  production-quality  compiler  is 
written  in  Ada.  This  program  is  input  to  the  cross  compiler 
and  translated  to  pseudo-code.  The  output  from  this  step  is 
pseudo-code  for  the  production  compiler.  Now,  all  chat  is 
needed  to  execute  the  compiler  program  is  a  pseudo-machine. 
Since  no  pseudo-machines  actually  exist  yet,  a  simulator 
must  be  created.  This  may  be  done  by  writing  a  program  that 
accepts  the  pseudo-code  as  input  and  that  accomplishes  the 
necessary  actions.  Such  a  program  is  sometimes  called  an 
interpreter.  With  this  approach,  all  that  needs  to  be  done 
to  install  the  Ada  compiler  on  a  new  processor  is  to  write  a 
relatively-simple ,  pseudo-code,  interpreter  program  to  run 
on  the  processor. 
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1  .1  .5.2  Advantages/disadvantages 

Since  installing  the  compiler  on  another  processor  is 
limited  to  writing  a  relatively-simple  program,  the  goal  of 
easy  portability  is  attained.  All  system  software,  e.g.  the 
editor,  debugger,  etc.,  should  also  be  written  in  Ada  and 
compiled  to  pseudo-code,  thus  attaining  the  same  portability 
as  the  compiler. 

Of  course,  running  the  interpreter  program  decreases 
execution  speed  as  compared  to  executing  native  machine 
code.  The  trade  off  is  speed  for  portability.  However,  the 
popularity  of  current  PASCAL  pseudo-code  implementations  is 
a  testimony  that,  for  most  purposes,  this  degredation  in 
performance  is  acceptable  to  a  wide  market  of  users. 
However,  should  performance  be  degraded  to  unacceptable 
levels,  speed  can  be  improved  by  post  processing  the  code 
or,  even  better,  by  creating  the  hypothetical  processor. 

Pos t  processing :  Pseudo-code  generated  by  the  compiler 
can  be  post  processed  to  produce  code  for  the  target 
machine.  An  optimizing,  pseudo-code  to  target-machine 
translator  would  eliminate  the  run-time,  interpretation 
penalty;  thus  increasing  the  program's  execution  speed. 

Building  the  hypothetical  processor :  Building  the 
hypothetical  processor  eliminates  any  need  for  post 
processing  the  pseudo-code  to  speed  up  execution. 
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Pseudo-code  generated  by  Che  compiler  is  native  machine-code 
for  Che  hypothetical  processor,  and  thus,  no  translation  is 
required.  Western  Digital  Corporation  used  this  technique 
to  build  their  PASCAL  Micro-Engine  by  micro-programming  an 
LSI  11  chip  set  to  emulate  the  UCSD  PASCAL  pseudo-machine. 
The  excellent  result  is  a  premium,  high-speed,  UCSD-PASCAL 
implementation  that  executes  on  a  micro/mini  computer. 

Now  that  some  background  information  on  pseudo-code 
compiling  has  been  covered,  the  thesis  project  will  be 
described.  This  project,  while  not  directly  involved  with 
building  the  finished  compiler  for  an  Ada  pseudo-code 
implementation,  has  laid  the  foundation  for  such  an  effort. 

1  .x.  Project  overview 

The  project  consisted  of  the  concurrent  development  of 
an  Ada  to  pseudo-code  translator  and  an  Ada  pseudo-machine. 
First,  a  parser  for  the  language  was  built  using  Lawrence 
Livermore  Laboratory's  automatic  parser  generator  and 
Intermetric  Inc.'s  LR(1)  Ada  grammar  (Refs  12,  13).  Then, 
language  constructs  were  investigated  beginning  with 
packages.  Packages  had  no  impact  on  the  runtime 
architecture  of  the  pseudo-machine,  but  profoundly  affected 
the  compiler's  symbol  table  and  symbol- table-access 
routines.  Separate  compilation  and  its  possible  impact  on 
the  structure  of  the  symbol  table  was  not  investigated. 


INTRODUCTION 


Next,  expressions  were  implemented  followed  by  procedures 
and  functions.  These  features  delineated  the  basic 

requirements  for  the  pseudo-machine,  and  a  stack  processor 
was  selected  to  meet  those  requirements.  Finally,  tasks 
were  investigated.  Tasks  added  several  operators  to  the 
pseudo-machine's  instruction  set  and  prompted  a 

multi-processor  architecture.  The  following  chapter 

describes  each  of  the  project's 
pseudo-machine  and  the  compiler. 


two  parts: 


the 
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2.  Project  Description 

This  chapter  begins  by  describing  the  approach  to  the 
project  and  by  discussing  some  of  the  design  considerations 
that  prompted  the  resulting  system  architecture.  Later 
sections  describe  the  pseudo-machine's  architecture, 
including  its  instruction  set  and  describe  the  Ada  to 
pseudo-code  compiler. 

2.1  Approach 

As  mentioned  before,  the  approach  taken  in  this  effort 
was  to  develop  an  Ada  compiler  in  parallel  with  the 
pseudo-machine.  Experience  gained  through  this  approach 
showed  that  the  compiler  actually  drove  the  design  of  the 
machine.  As  each  Ada  construct  was  implemented  in  the 
compiler,  a  sec  of  run-time  actions  became  necessary  to 
carry  out  the  required  semantics  of  the  construct.  This  set 
of  actions,  where  feasible,  was  included  as  a  single 
instruction  in  the  machine's  instruction  set.  Where  this 
was  not  practical,  combinations  of  previously  defined 
instructions  were  used  to  implement  the  construct.  In  this 
way,  the  instruction  set  for  the  pseudo-machine  grew 
specially  tailored  to  the  needs  of  the  Ada  language. 
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2.2  Design  considerations 

This  approach  uncovered  two  constructs  that  had  major 
influences  on  the  architecture  of  the  machine.  These 
constructs  included  the  requirement  for  subprograms  to  be 
recursive  and  the  run-time  requirements  imposed  by  the 
tasking  constructs. 

2.2.1  Recursive  subprograms 

When  a  compiler  analyzes  a  subprogram  in  preparation 
for  code  generation,  the  only  information  available  to  it 
concerning  local  variable  and  object  space  requirements  is 
the  space  required  for  a  single  activation  of  that 
subprogram.  Since  subprograms  in  Ada  can  be  activated 
recursively,  the  total  number  of  times  a  procedure  will  be 
called  is  not  known  until  run  time.  Since  the  compiler 
cannot  allocate  variable  and  object  space  for  an  unknown 
number  of  subprogram  activations,  a  run-time  allocation 
scheme  is  required.  This  scheme  must  allocate  memory  space 
for  each  variable  or  object  declared  in  a  subprogram  before 
executing  any  of  that  subprogram's  code.  The  system  used  in 
the  pseudo-machine  is  described  below. 

Ada  subprograms,  like  those  in  other  block-structured 
languages,  obey  a  last-called,  first-completed  calling 
discipline.  That  is,  the  most  recently  called  subprogram 
must  complete  its  execution  before  the  caller  resumes  its 
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execution.  Since  space  for  variables  and  objects  is 
allocated  just  prior  to  the  subprogram's  execution  and 
deallocated  immediately  afterward,  a  stack  can  be  used. 
Consider  the  following  example: 

PROCEDURE  MAIN  IS 
A  :  INTEGER; 

BEGIN 
A  :=  2; 

PUT_LINE  (A) ; 

END  MAIN; 

Figure  2-1 :  Run-Time  Space  Allocation  Example 

In  this  example,  procedure  'MAIN'  merely  initializes 
the  local  variable  'A',  prints  it  and  terminates.  The 
run-time  actions  necessary  to  accomplish  this  in  the 
pseudo-machine  are-. 

1.  Allocate  stack  space  for  the  procedure's  local 
variable  'A' . 

2.  Allocate  temporary  storage  for  the  constant  2. 

3.  Store  this  value  in  the  space  allocated  to 
variable  'A' . 

4.  Print  the  value  of  variable  'A'. 

5.  Deallocate  the  procedure's  stack  space. 

When  stack  space  is  initially  allocated  to  the 
procedure,  as  in  step  one,  additional  space  is  also 
allocated  to  provide  storage  for  control  data  used  by  the 
run-time  system.  The  number  of  words  required  for  control 
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information  is  fixed  and  is  allocated  before  the  procedure's 
local  variable  space.  In  this  paper,  the  first  word 
allocated  to  a  procedure  is  referred  to  as  the  base  of  the 
procedure  activation,  and  the  control  data  is  referred  to  as 
stack-frame  control  data.  The  space  allocated  to 
temporaries,  as  in  step  2,  is  accessed  strictly  as  a  stack, 
and  the  last  word  allocated  for  temporary  storage  is  called 
the  'top  of  stack'  or  'T'  for  short.  This  will  be  discussed 
more  fully  in  a  later  section. 

Collectively,  the  stack-frame  control  data,  the 
variable  and  object  space,  and  the  temporary  workspace,  is 
called  a  procedure  activation  record  or  a  stack  frame.  The 
layout  of  the  stack  frame  for  a  typical  procedure  activation 
is  illustrated  in  figure  2-2.  Please  note  that  the  stack 
grows  downward  here  and  in  all  illustrations  that  will 
follow. 

2.2.2  Tasking 

Before  discussing  the  run-time  requirements  levied  by 
Ada's  tasking  facilities,  a  brief  introduction  to  them  is 
necessary . 
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BASE 


T 

Figure  2-2:  Procedure  Activation  Record 

2. 2. 2.1  Ada's  tasking  facility 

Tasks  are  the  Ada  construct  used  to  specify  code  that 
executes  in  parallel  with  the  parent  procedure.  These 
parallel  tasks  may  execute  totally  independently,  or  they 
may  synchronize  occasionally  to  pass  information.  The 
mechanism  these  tasks  use  to  synchronize  and  pass  data  is 
described  in  the  following  paragraphs. 

A  cask  that  accepts  calls  from  other  tasks  has  a  set  of 
pre-defined  names  that  it  can  be  called  by.  These  names  are 
called  entries,  and  their  declaration  looks  the  same  as  a 
procedure  declaration.  Figure  2-3  contains  the  declaration 
of  a  task  named  'A'  that  includes  2  such  entries. 

Task  'A'  can  be  called  by  other  tasks  with  the  entry 
names  'A.A1 '  or  'A.A2'.  To  call  task  'A',  the  caller 
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TAS K  A  IS 

ENTRY  A1  (A1 1  :  IN  INTEGER) ; 

ENTRY  A2  (A1 2  :  OUT  MY_KIND) ; 

END  A; 

Figure  2-3:  Task  Declaration 

executes  a  call  to  the  desired  entry.  Actual  parameters  of 
the  call  must  match  the  declaration's  parameters  in  number 
and  type  as  they  must  in  a  procedure  call  (excluding 
parameters  with  default  values) .  This  entry  call  looks 
identical  a  procedure  call,  and  might  appear  as: 

A.A2  (Z) 

where  Z  must  be  of  type  'MY_KIND' .  The  called  task  accepts 
such  a  call  by  executing  an  accept  statement  for  the  called 
entry.  Continuing  the  example,  such  an  accept  statement 
might  appear  as: 

ACCEPT  A2  (A21  :  OUT  MYJCIND)  DO 
STATEMENTS 
END  A2; 

Figure  2-‘*  Accept  Statement 

The  region  between  'DO'  and  'END'  in  the  figure  is 
called  the  accept  body,  and,  in  this  region,  the  two  tasks 
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are  synchronized.  During  this  rendezvous,  the  statements 
comprising  the  accept  body  are  executed  while  the  calling 
task,  is  suspended  at  the  point  of  call.  After  the 
completion  of  the  accept  body,  both  tasks  continue  their 
parallel  execution.  Now  that  the  mechanism  for 
synchronizing  parallel  tasks  has  been  described,  the  method 
for  passing  data  will  be  discussed. 

Information  may  be  passed  between  communicating  tasks 
in  two  ways;  through  entry  parameters  or  through  global 
variables.  The  preferred  way  to  pass  information  is  by 
referencing  the  entry  parameters.  In  this  technique,  the 
entry  parameter  acts  like  a  local  variable  in  the  accept 
body.  Entry  parameters,  like  procedure  parameters,  can  have 
a  specified  mode  which  can  be  'IN',  'OUT'  or  'IN  OUT'. 
Thus,  information  passes  into  the  called  task  via  an  actual 


parameter  corresponding 

to  an  'IN' 

or  'IN 

OUT' 

formal 

parameter,  and  passes 

out  of  the 

task  via 

an 

actual 

parameter  corresponding 

to  an  'OUT' 

or  'IN 

OUT' 

formal 

parameter.  This  method  is  safe  since  the  two  tasks  have 
rendezvoused  and  are  in  direct  communication  with  each 
other.  The  other  technique  for  passing  information  between 
tasks  is  by  accessing  global  variables.  There  are  no 
guarantees  with  this  technique,  and  the  programmer  must 
implement  control  constructs  and  safeguards.  Let  the  user 
beware! 
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The  chronology  of  che  calling  interaction  between  tasks 
permits  two  possible  scenarios  (Ref  7:1).  in  the  first 
scenario,  the  calling-task' s  entry  call  precedes  the 
called-task' s  execution  of  an  accept  statement  for  that 
entry.  The  second  scenario  is  the  opposite,  where  the 
called  task  executes  an  accept  statement  for  an  entry  and 
then  the  caller  executes  the  entry  call.  The  required 
run-time  actions  for  each  scenario  are  briefly  discussed 
below. 


Call  precedes  accept :  If  the  caller  executes  an  entry 
call  and  finds  the  called  task  unable  to  accept  the  call,  it 
enters  itself  in  a  wait  queue  associated  with  that  entry. 
Then  it  records  the  current  value  of  its  working  registers 
(its  context)  in  its  stack  frame  and  releases  its  processor. 
The  scheduler  then  attempts  to  schedule  the  released 
processor . 

Accept  precedes  call :  The  task  owning  the  entry 
executes  an  accept  statement  and  finds  there  are  no  callers. 
It  then  sets  a  flag  notifying  other  communicating  tasks  chat 
it  is  waiting  for  a  call  to  that  entry,  records  its  context 
and  releases  its  processor.  The  scheduler  then  attempts  to 
schedule  the  released  processor. 

This  brief  introduction  to  Ada's  tasking  facility  will 
now  be  followed  by  a  description  of  the  run-time  operations 
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required  to  implement  these  constructs.  If  more  information 
on  tasking  is  desired,  see  the  Ada  reference  manual  (Ref 
2:9-1  -  9-16). 

2. 2. 2. 2  Run-time  requirements 

In  the  pseudo-machine,  an  Ada  task  executes  as  an 
object  within  a  subprogram's  activation  record.  As  a  result 
of  this,  the  stack  space  assigned  to  the  parent  must  be 
accessible  to  multiple  processors.  This  is  true  because  one 
processor  might  require  access  to  the  variable/object  space 
allocated  to  the  task  object,  while  another  processor  might 
require  access  to  other  areas  of  the  parent's 
variable/object  space. 

The  stack  space  allocated  to  a  task  is  formatted  the 
same  as  that  of  a  procedure,  except  that  the  task  has  a 
pre-established  upper  bound  on  the  amount  of  space  assigned 
to  it.  This  bound  is  determined  by  the  compiler  when  the 
program  is  compiled,  but  can  be  modified  by  a  representation 
specification  for  the  task  (Ref  2  :  13-3).  Now,  consider  an 
example  showing  the  stackspace  allocated  to  a  task  object 
nested  within  its  parent. 

Notice  that  the  nested  task  in  figure  2-5  has  the  same 
structure  as  the  parent  and  is  nested  within  the  parent's 
local  variable  space.  Remember  that  the  space  allocated  to 
the  nested  task  has  defirite  limits  that  are  computed  by  the 
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Figure  2-5:  Parent  With  Nested  Task 


compiler  at  compile  time.  If  subprograms  executing  within 
such  a  nested  task  recurse  excessively,  the  space  allocated 
to  the  task  will  be  exhausted  and  execution  must  stop.  The 
program  would  then  have  to  be  recompiled,  this  time 
notifying  the  compiler  that  the  nested  task  needs  more 
space.  A  better,  more  complicated,  solution  would  be  to 
develop  a  run-time  space  allocation  scheme  to  cover  such 
occurences.  However,  space  is  currently  computed  at  compile 
time  only,  and  there  is  no  run-time  space  allocation  scheme. 
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An  earlier  seccion  on  recursive  subprograms  hinced 
scrongly  that  che  pseudo-machine  required  a  stack-oriented 
processor,  and  the  previous  section  on  tasking  hinted  at 
multiple  processors.  The  following  section  will  describe 
the  resulting  combination  which  comprises  the  system 
architecture . 

2.3  Pseudo-machine  architecture 

The  pseudo-machine  consists  of  multiple,  stack-oriented 
processors  accessing  a  common,  partitioned  memory  through  a 
controller  which  resolves  conflicts.  The  following  diagram 
illustrates  this  architecture. 


Figure  2-6:  System  Architecture 
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single  stack  that  is  shared  among  the  processors,  and  the 
program  memory  contains  the  code  for  a  single  Ada  program. 
The  system  also  has  a  ready  queue  for  tasks  waiting  to  begin 
or  continue  their  execution.  Associated  with  the  ready 
queue  is  a  scheduler  who  assigns  waiting  tasks  to  idle 
processors  until  exhausting  the  supply  of  either  tasks  or 
processors.  It  is  implemented  as  a  procedure  which  is 
called  by  some  of  the  pseudo-machine's  instructions. 

The  role  of  the  scheduler  can  be  summarized  as  follows. 
When  the  pseudo-machine  begins  executing  an  Ada  program, 
there  is  only  a  single  thread  of  control  for  the  main 
procedure.  If  that  procedure  spawns  tasks,  they  are 
initiated  by  an  ACTIVATE  instruction  that  enters  the  spawned 
tasks  in  the  ready  queue  and  calls  the  scheduler.  If  these 
tasks  must  suspend  their  execution,  for  example  while 
waiting  for  a  rendezvous,  they  release  their  processor  and 
call  the  scheduler.  The  scheduler  is  also  called  when  a 
task  terminates  its  execution.  Briefly,  the  scheduler  is 
called  when  a  task  is  activated,  blocks  or  terminates. 

Please  note  that  the  structure  illustrated  on  the 
diagram  is  logical  only.  The  actual  physical  structure  of 
the  system  can  be  quite  different  as  long  as  the  logical 
structure  is  preserved.  Each  of  the  'n'  system  processors 
is  stack  oriented,  and  their  operation  will  now  be 
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described . 

Stack  processors  get  their  name  from  the  way  they 
evaluate  arithmetic  expressions.  They  evaluate  expressions 
in  post-fix,  using  a  stack  to  store  operands  and 
intermediate  results.  When  evaluating  such  an  expression,  a 
stack  processor  pushes  each  operand  it  encounters  onto  an 
evaluation  stack  in  its  memory  and  uses  each  operator  it 
encounters  as  an  instruction.  When  executing  an 
instruction,  it  assumes  the  operands  are  already  on  the 
stack  (This  is  true  because  of  the  properties  of  post-fix 
evaluation.),  and  it  removes  the  operands  and  pushes  the 
result  back  onto  the  stack.  Since  the  processor  knows  where 
the  operands  reside,  and  since  it  knows  where  to  put  the 
result,  the  processor  requires  no  addresses  to  execute  such 
an  instruction.  For  example,  the  expression  2*3+9 
becomes  2,  3,  *,  9,  +  in  post-fix,  which  translates  to  PUSH 
2,  PUSH  3,  MULTIPLY ,  PUSH  9,  ADD  in  stack  machine 
instructions.  The  result  of  the  expression  now  resides  on 
top  of  the  stack  and  is  available  for  assignment  to  a 
variable,  comparison  with  other  values  or  for  whatever  use 
that  can  be  made  of  an  expression's  result. 

When  a  stack  machine  is  used  to  implement  a  block 
structured  language,  such  as  Ada,  another  stack- like  feature 
exists.  Since  procedure  activations  obey  a  last-in, 
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first-out  (LIFO)  discipline,  stack  space  is  allocated  to 
them  in  a  LIFO  manner.  These  space  allocations  and 
deallocations  are  strictly  stack-like,  but  within  the  space 
of  each  allocation,  words  are  accessed  in  a  controlled  but 
hardly  stack- like  manner.  Values  may  be  removed  from  the 
evaluation  stack  and  transferred  into  the  local  variable 
space,  or  removed  from  the  local  variable  space  and  placed 
on  the  stack  or  even  stored  within  another  procedure's 
activation  record.  Additionally,  control  data  can  be 
accessed  or  changed  at  random. 

The  stack  processors  in  this  project  contain  registers 
to  facilitate  access  to  the  data.  These  registers  match 
closely  with  the  boundaries  between  the  previously  described 
blocks  of  data  contained  in  a  procedure  activation.  To 
describe  these  registers  in  a  specific  context,  consider  the 
task  activation  in  figure  2-7. 

The  first  word  of  the  activation  record  is  marked  by  a 
'BASE'  register  and  the  top  of  the  evaluation  stack  is 
marked  by  a  '  T'  register.  Remember  that  the  evaluation 
stack  grows  downward  toward  the  high  boundary  on  the 
diagram.  The  task's  high  boundary  is  initially  marked  by 
the  'HEAP'  register.  However,  the  'HEAP'  register's  primary 
purpose  is  not  just  to  mark  the  initial  high  boundary  of  the 
task's  stack  space.  Notice  that  the  'HEAP'  register  on  the 
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Figure  2-7:  Correspondence  of  Registers  and  Blocks 
illustration  has  already  moved  away  from  the  high  boundary. 

The  primary  purpose  of  the  'HEAP'  register  is  to  mark 
the  top  of  the  dynamic  heap.  The  dynamic  heap  provides 
storage  space  for  program  variables  created  at  run  time, 
like  those  created  dynamically  by  the  'NEW*  operator  in 
PASCAL.  As  these  variables  are  created,  space  is  allocated 
to  them  from  this  heap  structure.  On  the  previous  diagram, 
the  heap  grows  upward  toward  the  stack. 

Note  that  the  boundary  between  the  control  data  and  the 
task's  local  variables/objects  is  not  marked  by  a  special 
register.  The  reason  for  this  is  that  control  data  is  of 
known  length  at  compile  time,  and  therefore,  the  offset  to 
the  first  local  variable  can  be  computed. 
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Now  chat  some  background  information  on  stack 
processors  has  been  covered,  more  detailed  information  on 
the  project's  pseudo-machine  can  be  presented. 

2.3.1  Memory 

The  memory  contains  two  parts,  the  stack  memory  and  the 
program  memory.  As  mentioned  previously,  any  system 
processor  must  be  able  to  access  any  word  in  stack  memory. 
The  following  section  shows  that  this  is  also  required  of 
the  program  memory. 

2. 3. 1.1  Program  memory 

Program  memory  contains  only  the  instructions  to  be 
executed  by  the  processors.  No  variable  space  is  allocated 
within  program  memory,  and  only  read  operations  are 
performed  on  it.  Thus,  an  actual  implementation  could  hold 
any  program  in  a  read-only  memory. 

Multi-tasking  requires  the  program  memory  to  be 
accessible  to  multiple  processors.  This  is  true  because 
Ada's  visibility  rules  permit  procedures  to  be  global  to 
multiple  tasks,  and  therefore,  two  tasks  executing  in 
parallel  could  call  a  single  procedure  at  the  same  time. 
Making  duplicate  copies  of  the  code  is  also  a  possibility, 
but  this  is  less  straight-forward. 
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2. 3. 1.2  Stack  memory 

Scack  memory  contains  space  for  stack-frame  control 
data,  program  variables,  temporaries,  and  dynamically 
allocated  variables. 


Stack-frame  control  data:  A  stack  frame  is  allocated 


upon  entrance 

to 

a  block. 

to 

a  subprogram 

or  upon 

initialization 

of 

a  nested 

task 

object.  This 

stack  frame 

concains  the  following  information: 


1 .  The  static  link:  The  static  link  records  the 
textual  nesting  level  of  the  program  as  it  was 
originally  written.  It  is  used  for  run-time 
addressing  of  variables  and  objects'; 

2.  Dynamic  link:  The  dynamic  link  marks  the  base  of 
the  calling  procedure's  activation  record.  It  is 
used  to  deallocate  stack  space  upon  completion  of 
the  procedure's  execution. 

3.  Program  counter:  Storage  space  is  provided  for 

the  current  value  of  the  processor’s  working 
registers.  This  is  necessary  since  a  task  may 

have  to  give  up  its  processor  at  any  time.  For 
example,  a  higher  priority  task  may  pre-empt  this 
task,  forcing  it  to  release  the  processor.  The 
current  values  of  the  processor's  working 
registers  must  then  be  stored  so  that  the 
interrupted  task  can  resume  its  execution  at  a 
later  time.  The  'program  counter'  slot  is  used 
to  store  the  current  value  of  the  'PC'  register 
should  this  occur. 

4.  Task  flag:  The  task  flag  is  a  Boolean  variable 

that  indicates  whether  or  not  the  stack  frame  is 
a  task.  It  is  used  to  indicate  task  boundaries 
when  processing  run-time  exceptions  raised  in  the 
program . 

5.  Active  nested  task  counter:  The  active  nested 

cask  counter  is  used  to  record  the  number  of 
nested  tasks  currently  active  in  the  given  stack 
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frame.  The  definition  of  the  Ada  language  states 
that  a  block  cannot  be  exited  until  all  nested 
tasks  have  completed  tneir  execution  (Ref  2 
9-5) .  The  counter  is  used  to  enforce  this  rule 
at  ru..  time. 

6.  Waiting  flag:  The  waiting  flag  is  a  Boolean 

variable  that  indicates  whether  or  not  the  parent 
task  is  waiting  to  terminate  its  execution.  For 
example,  if  the  parent  reaches  the  end  of  its 
code,  and  it  still  has  active  nested  tasks,  it 
must  wait  for  them  to  complete.  It  then  sets  the 
waiting  flag  to  true,  stores  the  current  values 
of  its  processor's  working  registers,  and 

releases  its  processor. 

7.  Exceptions:  Ada  allows  controlled  error 

processing  at  run  time  through  its  exception 
facility.  This  control  word  is  currently  not 
used  since  exceptions  are  not  implemented.  When 
exceptions  are  implemented,  the  word  will  be  used 
to  record  information  on  exceptions  handled 
within  the  block.  More  control  words  will  be 
required  to  accomplish  this. 

8.  Priority:  This  word  is  a  run  time  record  of  the 
task's  priority. 

9.  Top  of  stack:  The  top-of-stack  control  word 

provides  temporary  storage  for  the  processor’s 
'T1  register. 

10.  Base:  The  base  control  word  provides  temporary 

storage  for  the  processor's  'BASE'  register. 

11.  Link:  When  a  task  is  entered  into  a  queue,  the 

link  control  word  points  to  the  next  task  waiting 
in  the  queue.  A  single  link  field  is  sufficient 
since  it  is  a  characteristic  of  the  language  that 
a  task  can  be  waiting  in  only  one  queue  (Ref  7  : 

11-44). 

12.  Heap:  The  heap  position  provides  temporary 

storage  for  the  processor's  'HEAP'  register. 

13.  Data  lock:  This  Boolean  variable  indicates 
whether  or  not  the  task  frame  is  currently  being 
accessed  by  another  task.  It  is  used  to  limit 
access  to  the  stack  frame  control  data  to  a 
single  processor  at  a  time.  This  word  is 
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currently  not  accessed  by  any  of  the 
pseudo-machine  instructions.  This  deficiency 
needs  to  be  addressed. 

14.  Caller:  When  a  called  task  executes  an  accept 

statement  for  a  particular  entry,  a  pointer  to 
the  base  of  the  accepted  caller  is  stored  in  this 
slot.  This  facilitates  accessing  the  caller's 
top  of  stack  to  retrieve  actual  parameters  during 
an  entry  call  and  also  facilitates  restarting  the 
task  upon  completion  of  an  accept  body. 

15.  Return:  This  control  word  is  used  to  record  the 
return  value  of  the  program  counter  during  a 
procedure  call. 

16.  Entry:  This  word  records  the  number  of  entries 
declared  in  the  current  activation,  and  is  used 
to  compute  the  amount  of  space  required  for  entry 
frame  control  data.  The  instructions  that  use 
this  control  word  assume  that  the  entry  frames 
are  allocated  immediately  following  the  ’entry’ 
control  word.  See  paragraph  2. 4. 3.1  for  an 
explanation  of  the  structure  and  operation  of  the 
entry  frame. 


Program  variables:  The  compiler  allocates  space  for 
variables  and  objects  after  allocating  space  for  the  stack 
frame  control  data.  Since  the  stack  frame  requires  16 
words,  the  first  word  available  for  a  local  variable  or 
object  is  the  17th  word  on  the  stack,  if  there  are  no  task 
entries  declared. 


Temporaries :  Temporaries  are  allocated  as  required 

during  the  evaluation  of  an  expression.  For  example: 

A  :-  A  +  A 


could  translate  to: 
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LOAD  A  --  The  value  of  A  is  pushed  on  Che  stack 
--  thus  allocating  the  first  temporary. 

LOAD  A  --  The  value  of  A  is  pushed,  now  2  temporaries 
--  are  allocated. 

ADD  --  The  two  operands  are  popped  and  the  value 

--  of  A  +  A  is  pushed.  Now,  only  1  temporary 
--  is  in  use. 

STORE  A  --  The  stack  is  popped,  and  the  value  is  stored 
--  at  the  address  for  A.  Now,  no  temporaries 
--  are  in  use. 


LOAD,  ADD  and  STORE  are  descriptive  mneumonics  and  have 
the  meaning  described  in  their  associated  comments. 


2.3.2  Stack  processors 

Each  processor  has  5  working  registers:  a  program 
counter  (PC),  an  instruction  register  (IR) ,  a  base  register 
(BASE) ,  a  top  of  stack  register  (T) ,  a  heap  pointer  (HEAP) 
and  a  status  register  (STATUS). 

1 .  PC  The  program  counter  is  a  pointer  to  words  in 
the  program  memory.  It  indicates  the  next 
instruction  that  the  processor  will  execute. 

2.  BASE  The  base  register  is  a  pointer  to  words  in 

the  stack  memory.  It  indicates  the  first  memory 
word  of  the  stack  frame  of  the  currently 

executing  subprogram  or  task. 

3.  IR  The  instruction  register  contains  the 
instruction  that  the  processor  is  currently 
executing . 

4.  HEAP  The  heap  register  is  a  pointer  to  words  in 
the  stack  memory.  It  indicates  the  top  of  the 
dynamically  allocated  memory  space. 

5.  T  The  top  of  stack  register  is  a  pointer  to  words 
in  the  stack  memory.  It  indicates  the  top  of  the 
stack  space  of  the  currently  executing  subprogram 
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■  or  taste. 

6.  STATUS :  The  status  register  contains  a  bit  that 
indicates  whether  or  not  the  processor  is  busy  or 
idle,  and  a  field  that  points  into  the  stack 
memory,  called  CURRENTJOB.  This  field  must  be 
the  same  size  as  the  processor's  other  working 
registers,  since  it  indicates  the  base  of  the 
currently  executing  task.  The  interpreter  program 
requires  an  additional  piece  of  information  for 
multiple  processor  simulation,  and  this  is  also 
contained  in  the  status  register.  This 

information  is  used  to  limit  the  number  of 
instructions  executed  by  a  processor  before  it 
returns  control  to  the  supervisor.  The 
supervisor  then  selects  the  next  processor  whose 
status  is  'BUSY'  and  allows  it  to  work  on  its 
assigned  task.  Thus,  the  supervisor  serves  to 
timeslice  the  actual  processor  among  the 

simulated  processors.  For  more  information,  see 
the  code  listing  for  the  interpreter  in  appendix 
IV. 


The  following  figure  illustrates  the  configuration  of  a 
stack  processor  working  on  a  task. 

Note  that  the  BASE,  T  and  HEAP  registers  point  into  the 
stack  space  and  indicate  the  first  word  in  the  stack  frame, 
the  top  of  the  evaluation  stack  and  the  top  of  the 
dynamically  allocated  variable  space,  respectively.  The 
instruction  register  holds  the  instruction  that  is  currently 
executing,  and  the  program  counter  points  to  the  next 
instruction  that  will  be  executed.  Finally,  the  STATUS 
register  contains  information  necessary  for 

multi-processing,  and  also  points  to  the  base  of  the  task. 
Note  that  this  diagram  illustrates  a  task  that  has  not 
called  a  subprogram,  since  the  BASE  register  is  equal  to  the 
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Figure  2-8:  Sample  Task  Frame 

base  of  the  task  object,  marked  by  the  CURRENTJOB  register. 
If  the  task  had  called  a  single  subprogram,  the  base 
register  would  point  to  the  first  word  in  the  unused  stack 
space  (the  first  word  of  the  new  procedure  activation), 
while  CURRENTJOB  would  retain  its  position  marking  the  base 
of  the  task. 

Now  that  the  architecture  of  the  pseudo-machine  has 
been  discussed,  the  instruction  set  of  the  machine  will  be 
presented . 
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2.4  Pseudo-machine  instruction  set 

The  instruction  set  currently  contains  operations  tnat 
are  specifically  tailored  to  a  subset  of  the  Ada  language. 
The  subset  is  described  in  the  user's  guide  in  appendix  III. 
The  currently  implemented  instructions  can  be  divided  into  5 
classifications:  relational  operators,  integer  or  single 
word  arithmetic  operators,  tasking  operators,  I/O  operators 
and  miscellaneous  operators.  First,  the  instruction  format 
will  be  described. 

Each  instruction  contains  three  fields  of  information; 
the  operation  code  field,  the  level  field  and  the  add?_ess 
field.  The  operation  code  field  contains  the  name  of  the 
specific  operation  to  be  performed,  and  the  level  and 
address  fields  provide  data  necessary  to  perform  that 
operation.  If  the  level  and  address  fields  are  not 
sufficient  to  contain  the  data  required  by  the  named 
operation,  additional  data  words  may  follow  that 
instruction.  The  following  discussion  of  the  operators  does 
not  specify  the  fields  where  such  data  is  stored,  but  only 
lists  the  additional  data  required.  Additional  details  may 
be  obtained  by  reading  the  interpreter  source  listing  in 
appendix  IV. 
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2.4.2  Integer  (single  word)  arithmetic  operations 

This  classification  contains  single-word  loads  and 
stores,  the  binary  operations,  +,  /,  *  and  MOD,  and  the 

unary  operator  NEGATE. 

2. 4. 2.1  Single  word  loads  and  stores 

Operators  exist  for  loading  and  storing  variables  and 
for  loading  constants. 

Single-word  loads  and  stores :  The  additional  data 
required  for  load  and  store  operations  is  the  location  of 
the  variable  whose  value  is  to  be  loaded  or  the  destination 
of  the  variable  whose  value  is  to  be  stored.  As  previously 
stated,  the  compiler  cannot  generate  a  ’hard’  run-time 
address  for  a  variable  at  compile  time.  However,  since  the 
storage  space  required  by  a  single  activation  of  a  procedure 
is  known,  variables  can  be  assigned  locations  relative  to 
the  beginning  of  the  procedure's  stack  frame.  Thus,  at  run 
time,  a  variable  can  be  specified  by  providing  its  offset 
from  the  base.  However,  there  is  one  complication. 

Ada's  visibility  rules,  as  those  of  most  other  block 
structured  languages,  allow  variables  stored  in  other 
procedure  activations  to  be  accessed  by  the  active 
subprogram.  Thus,  it  is  also  necessary  to  specify  which 
"base"  the  offset  is  relative  to.  The  compiler  provides 
this  information  as  additional  data  with  the  instruction. 
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The  single  word  loads  and  scores  include  the  operators 
ILOAD  and  ISTORE.  The  operator  ILOAD  uses  the  additional 
data  provided  with  the  instruction  to  retrieve  a  variable 
from  the  variable  storage  area.  Then  it  pushes  the  value  on 
the  evaluation  stack.  The  operation  ISTORE  pops  the  stack 
and  stores  the  value  in  the  location  specified  by  the 
additional  data. 

Loading  constants :  ILOADCONST  is  the  operator  for 
loading  a  constant  value  onto  the  evaluation  stack.  The 
additional  data  required  by  ILOADCONST  is  the  value  of  the 
constant  to  be  loaded.  ILOADCONST  takes  the  specified  value 
and  pushes  it  on  the  stack. 

2. 4. 2. 2  Arithmetic  operators 

The  binary  arithmetic  operators  +  (IADD) ,  -  (ISUB),  / 
(IDIV) ,  *  (IMULT) ,  IMOD,  and  IREM  assume  that  their  operands 
reside  on  top  of  the  stack.  These  operators  all  wortc 
similarly  by  removing  two  operands,  applying  the  operation 
and  pushing  the  result.  The  unary  arithmetic  operator, 
INEGATE,  pops  the  stack  and  pushes  the  integer  with  the 
opposite  sign. 
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2.4.3  Tasking  operators 

The  tasking  operators  include  ACTIVATE,  CALLENTRY, 
ACCEPT,  RELEASE,  TERMINATE,  ENTILOAD  and  ENTISTORE .  Before 
considering  the  operation  of  these,  a  brief  review  of  Ada's 
tasking  facility  might  be  desired.  See  section  2. 2. 2.1. 

The  additional  data  provided  with  these  instructions  is 
computed  by  the  compiler  at  compile  time.  When  compiling  a 
task,  the  compiler  computes  the  space  required  and  allocates 
it  within  the  local  variable  space  of  the  task's  parent. 
Other  data,  concerning  the  number  of  entries,  priority  and 
initial  values  for  a  task's  HEAP,  BASE,  T,  etc.,  are  also 
computed  and  are  available  as  additional  information  for  the 
tasking  operators. 

2. 4. 3.1  ACTIVATE 

The  parent  task  executes  the  ACTIVATE  instruction  to 
initialize  the  stackframe  of  one  of  its  nested  tasks. 
Additional  information  provided  with  the  instruction 
includes  the  nested  task's  base  pointer,  the  heap  pointer,  a 
pointer  to  the  task's  code,  the  initial  stack  top,  the 
task's  priority  and  the  number  of  entries  in  the  task.  The 
base,  heap  and  initial  stack  top  pointers  are  not  absolute 
addresses  but  are  relative  to  the  base  of  the  parent.  The 
parent  uses  this  information  to  compute  absolute  initial 
values  for  each  of  the  processor's  registers.  The  initial 
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values  for  the  cask's  static  and  dynamic  links  are  also  set, 
and  each  entry  declaration  in  the  nested  task  is  allocated 
space  necessary  for  res  control.  This  control  data  for  the 
entry  declaration  is  called  an  entry  frame  in  the  rest  of 
this  paper.  The  following  paragraph  describes  the  data  it 
concains . 

Three  items  of  information  are  necessary  for  the 
control  of  an  entry.  The  first  item  is  a  Boolean  variable, 
referred  to  as  the  gate,  which  is  used  to  record  chi_  status 
of  the  entry.  If  the  tasx  owning  the  entry  is  waiting  to 
execute  an  accept  statement  for  that  entry,  the  gate  is 
opened;  otnerwise,  it  is  closed.  The  second  item  is  a 
pointer  to  the  code  which  is  used  to  record  the  location  of 
the  code  of  the  currently  executing  accept  body.  This  is 
used  only  during  the  execution  of  a  select  statement,  which 
has  not  been  implemented  in  the  translator.  Currently,  this 
item  of  information  is  not  referred  to  in  any  of  the 
implemented  instructions.  The  final  control  word  serves  as 
a  queue  head  pointer  for  tasks  calling  the  entry.  The 
pointer  actually  points  to  the  stack  frame  of  the  first  task 
waiting  in  the  queue.  Other  tasks  in  the  queue  are  chained 
together  via  the  link  field  in  their  stack-frame  control 
data . 


In  addition  to  allocating  and  initializing  the  entry 
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space,  the  parent  initializes  tne  rest  of  the  stack  frame 
and  enters  the  nested  task  in  the  ready  queue.  After  all 
tasks  nested  within  the  parent  are  initialized,  the 
scheduler  is  called,  and  the  tasks  are  assigned  processors, 
if  available. 

2. 4. 3. 2  CALLENTRY 

The  calling  task  executes  the  CALLENTRY  instruction 
when  it  wishes  to  communicate  with  another  task.  Data 
included  with  the  instruction  includes  the  number  of  entries 
in  the  called  task  and  the  particular  entry  being  called. 
First,  the  caller  finds  the  appropriate  entry  frame  in  the 
called  task's  stack  frame  and  enters  itself  in  the  wait 
queue  for  that  entry.  The  caller  then  checks  the  entry  0ate 
to  see  if  it  is  open  or  closed. 

If  the  gate  is  open,  the  called  task  has  previously 
executed  an  accept  statement  for  this  entry  and  found  no 
callers  waiting.  (In  response  to  this  situation,  the  called 
task  would  have  opened  the  gate,  stored  its  context  and 
released  its  processor.  See  paragraph  2. 4. 3. 3,  the  ACCEPT 
operator.)  In  the  pseudo-machine,  the  task  owning  the  entry 
executes  the  accept  body,  so  the  calling  task  must  awaken 
the  suspended,  called  task.  It  does  this  by  entering  the 
task  in  the  ready  queue  and  by  calling  the  scheduler.  The 
caller  also  releases  its  processor,  waiting  for  completion 
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of  the  accept  body. 

If  the  gate  is  closed,  the  called  task  is  not  waiting 
for  a  call  to  that  entry.  In  this  situation,  the  caller 
merely  adds  itself  to  that  entry  queue,  and  releases  its 
processor . 

2. 4. 3. 3  ACCEPT 

The  called  task  executes  the  accept  instruction  when  it 
is  ready  to  communicate  with  a  caller.  Additional 
information  necessary  to  execute  an  ACCEPT  statement  is  the 
name  of  the  entry  being  accepted.  First,  the  appropriate 
entry  frame  is  checked  to  see  if  any  tasks  are  in  the  queue. 
If  tasks  are  waiting,  the  first  one  is  removed,  and  the 
appropriate  accept  body  is  executed.  If  no  tasks  are 
waiting,  the  called  task  opens  the  appropriate  entry's  gate, 
stores  its  processor's  context,  releases  its  processor  and 
calls  the  scheduler. 

2.4.3 .4  RELEASE 

The  called  task  executes  a  release  instruction  after 
completing  an  accept  body.  RELEASE  restarts  the  parallel 
execution  of  the  calling  taste  by  returning  it  to  the  ready 
queue  and  calling  the  scheduler.  No  additional  information 
is  required  by  RELEASE,  because  a  pointer  to  the  caller  is 
stored  at  a  known  offset  in  the  stack-frame  control  data. 
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2. 4. 3. 5  TERMINATE 

A  nested  cask  executes  a  terminate  instruction  at  the 
end  of  its  execution.  First,  the  terminating  task  notifies 
its  parent  that  its  execution  is  complete  and  checks  to  see 
if  the  parent  was  waiting  for  its  termination.  If  so,  the 
nested  task  enters  its  parent  in  the  ready  queue. 

In  either  case,  whether  the  parent  was  waiting  or  not, 
the  nested  task  releases  its  processor  and  calls  the 
scheduler.  No  additional  information  is  required  by 
TERMINATE  since  the  nested  task  can  locate  the  base  of  its 
parent,  and  since  the  parent's  control  data  is  stored  at 
known  offsets  from  its  base.  That  is,  TERMINATE  is  able  to 
locate  all  the  information  it  needs  within  the  parent's 
stack  frame. 

2. 4. 3. 6  ENTILOAD 

The  called  task  executes  an  ENTILOAD  instruction  only 
within  an  accept  body  when  referencing  a  entry's  formal 
parameter.  The  actual  parameter  corresponding  to  this 
formal  parameter  is  retrieved  from  the  caller's  stack  and  is 
pushed  on  the  called  task's  stack.  Additional  information 
required  is  the  address  of  the  actual  parameter  with  respect 
to  the  calling  task's  'T'  register. 
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2. 4. 3. 7  ENTISTORE 

The  called  task  executes  an  ENTISTORE  instruction  only 
wichin  an  accept  body  when  assigning  a  value  to  an  entry's 
formal  parameter.  A  value  is  popped  from  the  called  task's 
stack  and  stored  within  the  calling  task's  stack  frame  at 
the  location  of  the  corresponding  actual  parameter. 
Additional  information  required  is  the  address  of  the  actual 
parameter.  This  address  is  an  offset  with  respect  to  the 
calling  cask's  ' T '  register. 

2.4.4  I/O  Operations 

The  input-output  instructions  include  operators  for 
writing  strings  (SPUT)  and  integers  (IPUT)  to  the  output 
file,  and  for  reading  integers  (IGET)  from  the  input  file. 

2. 4. 4.1  SPUT 

Additional  information  required  by  the  operator  SPUT 
includes  a  line-feed  Boolean  that  indicates  whether  or  not  a 
carriage  return  and  a  line  feed  is  to  be  written  on  the 
output  file,  the  number  of  characters  to  print  and  the 
character  data  itself.  SPUT  writes  the  indicated  number  of 
characters  to  the  output  file,  and  then,  if  the  line-feed 
Boolean  is  true,  it  generates  a  carriage  return/line  feed. 
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2. 4. 4. 2  IPUT 

Additional  information  required  by  the  operator  IPUT  is 
the  Line-feed  Boolean.  IPUT  pops  a  word  off  the  stack,  and 
writes  the  ASCII  equivalent  of  the  value  to  the  output  file. 
If  the  line-feed  boolean  is  true,  it  generates  a  carriage 
return/ line  feed. 

2. 4. 4. 3  IGET 

IGET  reads  a  string  of  ASCII  digits,  delimited  by  a 
blank,  from  the  input  file,  converts  them  to  an  integer 
value  and  pushes  it  on  the  evaluation  stack.  No  additional 
information  is  required. 

2.4.5  Miscellaneous  Instructions 

The  miscellaneous  instructions  include  operators  to 
call  a  subprogram  or  function  (CALL),  to  shift  actual 
parameters  in  preparation  for  a  function  call  (PARAMSHIFT) 
and  to  return  from  a  call  (RETURN) .  Other  operators  in  this 
category  include  the  absolute  and  conditional  jumps  (JMP, 
JMPF,  JMPT)  and  an  operator  to  increment  the  T  register 
(INCT)  . 

2. 4. 5.1  CALL 

The  calling  subprogram  executes  a  CALL  instruction  to 
set  up  an  activation  record  for  the  called  subprogram.  The 
instruction  initializes  the  static  and  dynamic  links,  stores 
the  proper  return  address  and  initializes  other  information 
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wichin  the  stack  frame.  Additional  information  required  is 
data  to  set  the  static  link  and  a  pointer  to  the  code  for 
the  called  subroutine. 

2. 4. 5. 2  PARAMSHIFT 

Additional  information  required  by  the  PARAMSHIFT 
operator  is  the  number  of  parameter  words  to  shift  and  the 
shift  distance.  The  calling  subprogram  executes  this 
instruction  only  when  calling  a  procedure  to  allocate  space 
on  its  evaluation  stack  for  the  return  variable.  The  actual 
parameters  are  shifted  upward  on  the  stack  the  number  of 
spaces  indicated  by  the  additional  information. 

2. 4. 5. 3  RETURN 

The  called  subprogram  executes  a  RETURN  instruction 
after  completing  its  execution.  If  the  called  subprogram 
has  no  active  nested  tasks,  it  deallocates  its  stack  space 
by  resetting  the  T  and  Base  registers  and  loads  the  return 
address  into  the  program  counter.  If  nested  tasks  are  still 
active,  the  called  subprogram  cannot  return;  so  it  stores 
its  context,  releases  its  processor  and  calls  the  scheduler. 
No  additional  information  is  required  to  execute  a  RETURN 
instruction. 
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2. 4. 5. 4  JMP 

Additional  data  provided  with  the  JMP  operator  is  the 
destination  address.  JMP  merely  loads  this  address  into  the 
program  counter  so  that  the  next  instruction  executed  will 
be  the  one  specified  in  the  instruction. 

2. 4. 5. 5  JMPF,  JMPT 

Additional  information  provided  with  the  conditional 
jump  operators  is  the  destination  address.  Both  JMPF  and 
JMPT  pop  a  single  operand  from  the  stack  and  test  its 
Boolean  value.  If  the  operand  is  false,  JMPF  loads  “.he 
program  counter  with  the  destination  address  so  thar  he 
next  instruction  executed  will  be  the  one  specifier  .  JMPT 
does  just  the  opposite,  transferring  control  only  if  the 
Boolean  value  is  true. 

2. 4. 5. 6  INCT 

Additional  information  provided  with  the  instruction  is 
the  number  of  words  to  increment  the  T  register.  INCT  adds 
the  number  provided  to  the  current  value  of  the  T  register. 

This  completes  the  description  of  the  pseudo-machine's 
instruction  set  and  also  completes  the  description  of  the 
over-all  design  of  the  pseudo-machine.  If  more  detailed 
information  is  desired,  please  refer  to  the  interpreter 
listing  in  appendix  IV.  Now  the  project's  second  major 
product,  the  Ada  test  compiler,  will  be  discussed. 
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2.5  The  compiler 

A  compiler  must  recognize  high  level  language 
constructs  and  translate  them  into  equivalent  machine  level 
instructions.  This  section  first  considers  the  problem  of 
translation  and  then  describes  the  recognizer  used  in  the 
Ada  test  compiler.  Finally,  the  semantic  routines  that 
accomplish  the  translation  are  discussed. 

2.5.1  Background  --  Compilation 

Before  describing  the  project's  test  translator,  a 
brief  introduction  to  the  compilat_on  process  will  be 
presented.  The  emphasis  will  be  on  the  problem  raced  by  the 
translator,  rather  than  on  how  the  translation  is 
specifically  accomplished.  This  problem  will  be  described 
by  postulating  the  existance  of  a  simple  machine  and  a  high 
level  language  and  by  using  these  tools  to  illustrate  the 
compilation  task. 

The  postulated  machine:  The  postulated  machine  is  a 
stack  oriented  machine  that  performs  operations  on  operands 
previously  placed  on  a  stack.  The  machine  described  here  is 
actually  a  subset  of  the  PL/0  machine  described  by  Niklaus 
Wirth  in  his  book  Algorithm 1 s  +  Data  S true tures  -  Programs 
(Ref  14  :  331-336).  Briefly,  the  machine's  instructions  are 
stored  in  program  memory  and  are  executed  in  sequential 
order  unless  the  order  is  modified  by  an  instruction.  The 
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instruction  set  consists  of  the  following  7  instructions. 


1 .  LOP  A:  LOD  A  places  the  variable  named  'A'  on  the 
s  tack . 

2.  LDC  X:  LDC  X  places  the  value  'X'  stored  in  the 
instruction  on  the  stack. 

3.  STO  A:  STO  A  saves  the  variable  named  'A'  in 
memory . 

4.  ADD :  ADD  removes  two  operands  from  the  top  of  the 
stack  and  adds  them  together.  The  result  is 
pushed  on  the  stack. 

5.  CHECK  <:  CHECK  <  removes  two  operands  from  the 
top  oF  the  stack.  If  the  second  operand  removed 
is  less  than  the  first,  then  the  value  TRUE  is 
pushed,  otherwise,  the  value  FALSE  is  pushed. 

6.  JHP  X:  JMP  X  causes  the  machine  to  execute  the 
instruction  at  location  X  next. 

7.  JMPF  X:  JMPF  X  removes  an  operand  from  the  top  of 
the  stack.  If  its  value  is  FALSE  then  the 
machine  executes  the  instruction  at  location  X. 


The  high-level  language :  The  postulated  high-level 

language  consists  of  the  single  sentence: 

IF  <CONDITION>  THEN  <STATEMENT>  ELSE  <STATEMENT> . 


The  three  words  IF,  THEN  and  ELSE  give  this  sentence 
its  structure.  The  word  IF  signals  that  a  conditional 
statement  will  (or  should)  follow,  and  the  words  THEN  and 
ELSE  signal  that  a  statement  follows.  Furthermore,  the 
statement  following  THEN  is  to  be  done  only  if  the 
conditional  statement  is  true,  and  the  statement  following 
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ELSE  is  co  be  done  only  if  ic  is  false. 

The  translacion:  The  specific  example  to  be  translated 
to  hypothetical  machine  code  is: 

IF  A  <  B  THEN  A  :  =  A  +  1  ELSE  B  :=  B  +  1 . 

In  this  sentence,  A  and  B  are  variables  that  are  assumed  to 
have  been  initialized  to  some  value,  is  an  assignment 

operator,  '  +  '  is  an  addition  operator  and  " 1  *  represents  the 
decimal  number  one. 

The  compiler's  translation  problem  is  similar  to  the 
problem  faced  by  a  human  interpreter.  The  interpreter  must 
cake  a  sentence  in  the  source  language  and  create  a  sentence 
with  the  same  meaning  in  the  target  language.  Similarly, 
the  compiler  program  must  translate  the  meaning  of  a 
sentence  written  in  a  high-level  language  to  a  sentence  with 
the  same  meaning  in  the  machine's  language.  However,  there 
is  a  difference  between  this  translation  problem  and  the 
human  interpreter's  problem.  When  translating  between  human 
languages,  the  interpreter  is  usually  working  with  two 
languages  of  approximately  the  same  expressive  power,  where 
a  sentence  in  one  language  will  become  an  equivalent 
sentence  in  the  other  language.  In  contrast,  the  compiler 
is  working  with  two  languages  with  vastly  different 
expressive  powers,  where  a  sentence  in  a  high-level  language 
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may  translate  to  hundreds  of  sentences  in  machine  language. 
Thus,  the  compiler's  goal  is  to  provide  a  translation  which 
preserves  the  meaning  of  a  high  level  language  sentence 
given  the  limited  set  of  resources  at  the  machine  level. 


There  are  several  ways  that  a  compiler  can  recognize  a 
high  level  language  construct,  but  these  methods  will  not  be 
discussed  here.  It  is  merely  assumed  that  the  compiler  can 
recognize  one.  Once  the  construct  is  recognized,  the 
associated  meaning  is  known,  and  the  compiler  can  issue 
machine  language  instructions  which  preserve  that  meaning. 
The  sequence  of  code  the  compiler  would  generate  to  preserve 
the  meaning  of  the  statement 

IF  A  <  B  THEN  A  A  +  1  ELSE  B  :=  B  +  1 


is  : 


LOD  A 
LOD  B 
CHECK  < 

JMPF,  FALS  E_PT 

LOD  A 
LDC  1 
ADD 
STO  A 

JMP  END 
«FALSE_PT» 

LOD  B 
LDC  1 
ADD 
STO  B 


--load  variable  A 

--load  variable  B 

--remove  A  and  B  from  the  stack 

--and  replace  with  the  value  of  A  <  B 

--if  the  value  on  top  of  the  stack  is 

--false,  then  go  to  label  FALSE_PT 

--begin  true  part 

--load  the  constant  value  1 

--pop  the  two  operands  and  push  the  sum 

--store  the  top  of  stack  value  in 

--the  location  assigned  to  variable  A 

--jump  over  the  false  part 

--begin  the  false  part 

--load  the  constant  value  1 

--pop  two  operands  and  push  their  sum 

--store  the  top  of  stack  value  in 

--the  location  assigned  to  variable  B 

--end  of  translation 


«END>> 


PROJECT  DESCRIPTION 


The  reader  should  verify  chat  this  translation  is 
correct.  That  is,  assure  that  the  defined  meaning  of  the 
high  level  Language  construct  is  preserved  in  the 
translation  to  machine  instructions.  Now,  with  this  example 
as  background,  the  Ada  to  pseudo-code  translator  developed 
in  the  project  will  be  described.  The  first  topic  to  be 
discussed  is  the  mechanism  that  recognizes  high  level 
language  constructs,  the  LR(1)  parsing  automaton. 

2.5.2  LR(1)  parsing  automaton 

The  LR(1)  parsing  automaton  is  a  bottom-up, 
finite-state  machine  whose  operations  are  directed  by  a  set 
of  language  specific  tables.  For  an  introduction  to  LR ( 1 ) 
parsing  see  Appendix  II. 

The  specific  system  used  to  build  the  parser  was  the  LR 
package  from  Lawrence  Livermore  Laboratory  (Refs  12  ;  13). 
This  system  is  written  in  ANSI I  standard  FORTRAN  and 
consists  of  an  automatic  parser  generator  and  a  parser 
skeleton.  Since  the  project  was  written  in  PASCAL,  the 
parser  skeleton  had  to  be  translated,  and  the  tabular  data 
output  from  the  automatic  parser  generator  had  to  be 
reformatted.  The  following  paragraphs  describe  the 
construction  of  the  parser,  its  structure  and  its  operation. 
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2. 5. 2.1  Construction 

Construction  of  the  parser  required  inputting  an  LR(1) 
grammar  into  the  automatic  parser  generator,  inserting  the 
resulting  tables  into  the  parser  skeleton,  and  writing  a 
lexical  analyzer  for  Ada. 

The  automatic  parser  genera  tor :  The  automatic  parser 
generator  constructs  the  language  specific  tables  that 
control  Che  operation  of  the  automaton.  An  LR ( 1 )  grammar 
for  the  subject  language,  in  this  case  Ada,  is  input  to  the 
generator,  and  a  grammar  analysis  and  a  set  of  tables  are 
produced.  The  grammar  analysis  consists  of  a  sorted  listing 
of  the  vocabulary,  a  formatted  listing  of  the  langua0e 
productions  and  a  human  readable  version  of  the  resulting 
finite-state  control  for  the  parser.  The  set  of  tables  is  a 
machine  readable  version  of  the  finite-state  control  and  is 
in  the  proper  format  for  insertion  into  the  parser  skeleton. 

The  parser  skeleton:  The  parser  skeleton  is  also 
writ_en  in  FORTRAN  66  and  consists  of  a  set  of  routines  that 
interpret  the  Cables  generated  by  the  automatic  parser 
generator.  The  package  consisting  of  the  parser  skeleton 
and  the  tables  requires  the  addition  of  a  lexical  analyzer 
to  produce  an  operating  parser.  The  lexical  analyzer 
(scanner)  scans  the  input  file,  isolates  tokens  and  returns 
that  token's  reference  to  the  parser.  Collectively,  the 
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parser  skeleton,  the  tables  and  the  scanner  comprise  the 
core  of  the  compiler  program. 

Advantages :  Using  the  LR  system  provides  three  major 
advantages.  First,  the  parser  can  be  constructed  quictcly 
with  the  assurance  that  the  final  results  will  parse  the 
grammar  correctly.  Second,  the  grammar  can  be  changed 
relatively  easily,  if  necessary.  Finally,  the  resulting 
program  is  space  efficient  and  modular.  The  following 
paragraph  describes  the  program's  modular  structure. 

2. 5. 2. 2  Parser  structure 

The  following  figure  contains  a  chart  which  describes 
the  structure  of  the  parser  using  a  technique  described  by 
G.  L.  Myers  in  his  book  Composite  Structured  Design  (Ref  11 
:  13).  The  figure  consists  of  a  network  of  modules  arranged 
in  levels,  with  a  module's  position  determined  by  the 
calling  dependencies  between  it  and  the  other  modules.  The 
module  at  the  top  of  the  diagram  is  named  PARSE.  Module 
PARSE  calls  four  subordinate  modules,  named  FINDREDUCTION , 
DQREDUCTION ,  FINDTRANSITION ,  and  DOTRANSITION .  When  PARSE 
calls  FINDREDUCTION,  it  provides  module  FINDREDUCTION  with 
information  concerning  the  current  state  and  the  current 
look-ahead  symbol.  Upon  return,  FINDREDUCTION  provides 
PARSE  with  a  production  number.  These  data  flows  are 
indicated  on  the  diagram  by  a  number,  and  the  specific  data 
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1  Currenc  state  and  token 

2  Production  it,  Stkptr 

3  Current  state  and  token 

4  New  state  ,  Stkptr 

5  Production  it,  Stkptr 

6  Stack[ stkptr] .state, 

Left-hand  side  (production  //) 

7  . 


OUT 

Production  It 

New  state  >t ,  Stkptr 

New  state  It 

Stkptr,  Current  state  it 
Token  description 


New  state  It 
Token  description 


Figure  2-11:  Parser-Structure  Chart 

passed  is  found  in  the  chart  at  the  bottom  of  the  figure. 
The  remainder  of  the  diagram  may  be  interpreted  in  this  same 
way . 


2. 5. 2. 3  Parser  operation 

The  controlling  module,  PARSE,  repeatedly  executes  a 
series  of  statements  until  it  transitions  to  its  final 
state.  The  following  algorithm  describes  PARSE's  actions. 

To  begin,  PARSE  calls  FINDREDUCTION  to  see  if  any 
reductions  exist.  If  a  reduction  can  be  done,  module 
DOREDUCTION  is  called,  and  PARSE  goes  back  to  repeat  the 
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REPEAT 

Check  co  see  if  a  reduction  is  possible  while  in  cne 
current  state  with  the  current  look-ahead  token. 

If  reduction  is  possible:  Do  the  reduction. 

If  reduction  is  not  possible: 

Check  to  see  if  a  transition  is  possible  while  in 

che  current  state  with  the  current  look-ahead  toxen. 
If  transition  is  possible:  Do  the  transition. 

If  transition  is  not  possible:  Syntax  error  _n  source. 
UNTIL  current  state  =  final  state. 


Figure  2-12:  Algorithm  for  Module  Parse 

loop.  If  no  reduction  can  be  done,  PARSE  calls 
FINDTRANSITION  to  see  if  any  transitions  exist.  If  a 
transition  can  be  done  module  DOTRANSITION  is  called  and 
PARSE  goes  back  to  repeat  the  loop.  If  no  transition  can  be 
done,  PARSE  has  detected  a  syntax  error.  This  sequence 
continues  until  the  parser  transitions  to  the  final  state. 


2.5.3  Semantic  routines 

This  section  traces  the  flow  of  semantic  information 
throughout  the  translation  process.  Semantic  information  is 
initially  collected  by  the  scanner  and  stored  on  semantic 
stacks.  This  information  may  eventually  be  transferred  to 
the  symbol  table  as  directed  by  the  semantic  routines. 


2. 5. 3.1  Scanner 

SCANNER'S  function  is  to  find  the  next  lexical  item  in 
the  input  file.  After  finding  it,  the  scanner  also 
associates  a  certain  semantic  meaning  with  that  token.  For 
example,  an  identifier  is  returned  to  the  parser  as 
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(*identif ier* ,  pointer  to  symbol  table  entry,  ASCII 
representation).  For  parsing  purposes,  the  only  significant 
information  is  that  the  next  token  is  an  *identif ier* .  The 
semantic  routines  use  the  remainder  of  the  information  to 
determine  whether  or  not  tnis  identifier  is  correctly  used 
in  the  particular  context. 

2. 5. 3. 2  Semantic  stacks 

The  parser  maintains  2  parallel  stacks,  one  to  store 
the  next  token  and  another  to  store  the  current  state.  In 
addition  to  these,  various  other  stacks  are  maintained  to 
store  data  associated  with  the  stacked  token.  These  stacks 
are  called  the  semantic  stacks.  For  example,  additional 
semantic  stacks  can  be  used  to  store  a  pointer  to  the 
token's  symbol  table  entry,  to  store  its  ASCII 
representation,  its  integer,  real  or  character  value  or  to 
retain  any  other  information  that  might  be  required  to 
establish  the  token's  meaning.  The  semantic  routines  then 
use  this  information  to  determine  if  the  token  is  proper  for 
the  given  context. 

2. 5. 3. 3  Sample  semantic  routine 

Jhen  DOREDUCTION  calls  SEMANTIC,  it  tells  SEMANTIC 
which  particular  construct  it  has  recognized  in  the  input 
file.  For  example,  assume  that  module  DOREDUCTION  has 
called  SEMANTIC  with  production  number  289.  This  tells  the 
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semantic  module  that  production  number  289  has  been  isolated 
in  the  input  and  that  the  production's  components  have  been 
assembled  on  the  stack.  Suppose  production  number  289  is 
defined  as  follows: 


<PARAMETER_DECLARATION>  ::=  <ID>  :  <MODE_OPTION> 
<SUBTYPE  INDICATION  INITIALIZATION  OPTION>. 


From  this,  the  semantic  module  knows  that  the  items 
composing  a  <PARAMETER_DECLARATION>  are  on  top  of  the  stack. 
Furthermore,  it  knows  these  items  have  been  assembled  on  the 
stack  by  the  parser  in  the  order  they  were  encountered; 
thus,  the  top  item  is  an  <INITIALIZATION_OPTION> ,  and  the 
other  items  can  be  located  by  their  offset  from  that  item. 
Now,  the  appropriate  semantic  actions  for  a 
<PARAMETER_DECLARATION>  can  be  accomplished  using  the  data 
assembled  in  the  semantic  stacks.  Appropriate  semantic 
actions  for  a  <PARAHETER_DECLARATION>  might  include: 


-  Look  up  the  identifier  (stack  [stkptr  -  4j)  in  the 
symbol  table  and  check  whether  or  not  it  has  been 
previously  declared. 

-  If  it  nas  been  previously  declared,  call  the  error 
routine . 

-  If  it  has  not  been  previously  declared,  add  the 

new  identifier  to  the  symbol  table,  and  store 
semantic  data  associated  with  it.  e.g.  Sec  the 
identifier's  type  to  'parameter',  and  store  the 
parameter's  mode  (stack[ s tkptr  -  2]),  subtype 

(stack  [stkptr  -  1])  and  initial  value  (stored  at 
stack  [stkptr])  in  the  symbol  table. 
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After  completing  the  semantic  actions  associated  with 
production  289,  SEMANTIC  returns  control  to  DORED'JCTION . 
DOREDUCTION  then  removes  the  five  items  comprising 
production  289  from  the  stack  and  replaces  them  with  the 
single  item  <PARAMETER_DECLARATION> . 

2.5.4  Symbol  table  and  visibility 

Name  visibility  is  enforced  with  a  compile  time 
environment  stacK,  stacking  rules  and  special  symbol-table 
access  routines. 

2. 5. 4.1  Environment  stack 

An  entry  in  the  environment  stack  contains  information 
on  the  name  of  the  environment,  whether  or  not  the 
environment  acts  as  a  package  visible  part,  and  whether  or 
not  the  environment  is  directly  visible.  Initially,  the 
environment  stack  is  empty. 

2. 5. 4. 2  Stacking  rules 

The  stacking  rules  specify  which  names  are  to  be  pushed 
on  the  environment  stack  and  what  values  are  to  be  stored 
with  them.  These  rules  assume  the  existence  of  two 
operations  on  the  environment  stack,  PUSH  and  POP,  and  of  a 
global  variable  used  to  record  the  lexical  level.  Again, 
the  environment  stack  consists  of  3-tuples  which  contain  the 
environment  name  and  two  Boolean  variables  that  indicate 
whether  or  not  the  environment  acts  like  a  package  visible 
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pare  and  whecher  or  not  Che  environment  represented  by  the 
entry  is  directly  visible. 


PROCEDURE 

entry  :  increment  the  lexical  level; 

PUSH  (procedure  name,  false,  true); 

exit  :  decrement  the  lexical  level; 

POP  until  name  =  procedure  name 
POP 

PACKAGE  VISIBLE  PART 

encry  :  PUSH  (package  name,  true,  true); 

exit  :  POP  until  name  =  package  name 

REPLACE  (package  name,  true,  false) 

PACKAGE  BODY 

entry  :  PUSH  (package  name,  true,  true) 

exit  :  POP  until  name  =  package  name 
POP 

TASK  VISIBLE  PART 

entry  :  PUSH  (task  name,  true,  true) 
exit  :  REPLACE  (task  name,  true,  false) 
TASK  BODY 

entry  :  increment  the  lexical  level 

PUSH  (task  name,  false,  true) 

exit  :  decrement  the  lexical  level 
POP  until  name  =  task  name 
POP 

ACCEPT  BODY 

entry  :  PUSH  (entry  name,  true,  true) 
exit  :  POP 


Figure  2-13:  Stacking  Rules 
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2. 5. 4. 3  Symbol-Cable  routines 

Ada's  visibility  rules  are  supported  by  routines  to 
enter  a  symbol,  to  find  a  symbol  in  a  named  environment  and 
to  find  a  symbol  in  scope. 

Entering  a  symbol 

Symbols  are  entered  in  the  symbol  table  tagged  with  the 
environment  in  which  the>  are  declared.  This  environment  is 
specified  by  a  2-tuple  consisting  of  the  lexical  level  and  a 
linked  list  of  the  environment  names  on  the  stack  when  the 
entry  is  made. 

Lexical  Level :  The  lexical  level  records  the  number  of 
static  links  that  must  be  traversed  to  reach  the  main  or 
outermost  textual  level.  This  value  is  initialized  to  0  and 
altered  only  according  to  the  stacking  rules. 

Linked  list :  The  linked  list  contains  all  the  directly 
visible  names  stored  on  the  environment  stack  at  the  time 
the  symbol  was  entered.  Since  the  environment  stack  is 
altered  only  according  to  the  stacking  rules,  the  list  will 
contain  only  subprogram,  package,  task  or  entry  names. 
Finding  a  symbol  in  a  named  environment 

The  caller  provides  the  symbol's  lexical  level  and  the 
specific  environment  to  be  searched.  The  routine  searches 
this  environment  and  returns  a  reference  to  the  symbol  if  it 
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exis  ts . 

Finding  a  symbol  in  scope 

The  caller  provides  che  current  lexical  level  and 
environment.  The  routine  successively  searches  nested  scopes 
until  the  symbol  is  found  or  there  are  no  more  environments 
to  search.  It  returns  a  reference  to  the  symbol  if  it 
exis  ts . 


2. 5. 4. 4  Visibility  example 

These  tools  comprise  a  system  which  supports  Ada's 
visibility  rules.  The  following  example  illustrates  their 
use . 


G> 

(3> 

PROCEDURE  MAIN  IS 

* 

A  :  INTEGER; 

B> 

PACKAGE  MAIN  1  IS 

* 

H> 

A  :  INTEGER; 

END  MAINJ  ; 

* 

E> 

PACKAGE  BODY  MAIN  1  IS 

* 

££> 

M  IB  :  INTEGER; 

BEGIN 

A  :  =  1  ; 

MAIN. A  :=  2; 

END  MAIN  1  ;  * 

Q> 

BEGIN  --  MAIN 
G§>  MAINJ  .A  :=  A; 

END  MAIN;  * 

ca> 

Figure  2-14:  Example  Program  for  Visibility  Demonstration 


Each  number  on  the  figure  points  to  a  region  of  the 
text  where  the  environment  is  of  interest,  and  the  asterisk 
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marks  che  application  of  one  of  the  stacking  rules.  For 
each  number,  figure  2-15  illustrates  the  contents  of  the 
environment  stack  and  all  the  variables  entered  in  the 
symbol  table  up  to  that  point  in  the  source  text.  The 
example  begins  at  point  one,  with  a  NIL  environment  and  no 
variables  in  the  symbol  table.  Each  new  identifier 
encountered  in  the  text  is  entered  in  the  current 
environment,  and  the  environment  stack  is  changed  only  at 
the  marked  points  using  the  previously-defined  stacking 
rules . 


This  concludes  the  description  of  the  thesis  project. 
Additional  detailed  information  on  the  operation  of  either 
the  pseudo-machine  or  the  compiler  can  be  obtained  by 
studying  the  PASCAL  source  listing  for  the  system.  Appendix 
IV  contains  the  listing  of  the  interpreter  program,  but  due 
to  the  size  of  the  compiler  listing,  it  has  not  been 
included.  However,  copies  of  the  entire  listing  are 
available  in  machine  readable  form  on  the  ARPA  net.  Contact 
the  AFIT/EN  Mathematics  Department  for  further  information. 
The  following  chapter  will  describe  recommendations  for 
follow-on  efforts. 
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CONTENTS  OF 

ENVIRONMENT  STACK  VARIABLES  ENTERED 


ENV  NAME 

PACKAGE 

DIRECT  VIS 

VAR  NAME 

ENVIRONMENT 

£D> 

NIL 

NIL 

NIL 

NIL 

NIL 

E> 

MAIN 

FALSE 

TRUE 

MAIN 

0 

<NIL> 

d> 

MAIN 

FALSE 

TRUE 

MAIN 

0 

<NIL> 

A 

1 

<MAIN> 

S> 

MAIN 

FALSE 

TRUE 

MAIN 

0 

<NIL> 

MAINJ 

TRUE 

TRUE 

A 

1 

<MAIN> 

MAIN  1 

1 

<MAI  N ,  MAI  N 

1> 

A 

1 

<MAIN,MAIN_ 

1  > 

d> 

MAIN 

FALSE 

TRUE 

SAME 

AS 

ABOVE 

MAIN_1 

TRUE 

FALSE 

MAIN 

FALSE 

TRUE 

MAIN 

0 

<NIL> 

MAIN  1 

TRUE 

FALSE 

A 

1 

<MAIN> 

MAINJ 

TRUE 

TRUE 

MAIN  1 

1 

<MAIN> 

A 

1 

<MAI N ,  MAIN 

1> 

MJ  B 

1 

<MAIN ,  MAIN 

J  > 

Q> 

MAIN 

FALSE 

TRUE 

SAME 

AS 

ABOVE 

MAINJ 

TRUE 

FALSE 

S> 

MAIN 

FALSE 

TRUE 

SAME 

AS 

ABOVE 

MAINJ 

TRUE 

FALSE 

a> 

NIL 

NIL 

NIL 

NIL 

NIL 

Figure  2-15:  Visibility  Rules  Demonstration 
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3.  Recommendations 

As  time  for  the  project  work  drew  to  a  close,  it  became 
apparent  that  several  items  on  the  'do-list'  would  not  get 
done.  This  chapter  describes  these  deficiencies  and  also 
describes  some  areas  where  continuation  efforts  could  begin. 
Since  the  project  is  composed  of  two  major  parts,  the 
pseudo-machine  and  the  test  compiler,  the  recommendations 
are  divided  to  reflect  this.  The  first  section  in  the 
chapter  describes  suggested  improvements  to  the 
pseudo-machine,  and  the  last  section  describes  suggested 
improvements  to  the  test  compiler. 

3.1  Improvements  to  the  pseudo-machine 

Known  areas  where  the  pseudo-machine  can  be  improved  or 
expanded  include:  providing  run-time  space  allocation  for 
tasks,  improving  the  system  queues,  improving  the  allocation 
of  stack-frame  control  data,  implementing  exceptions, 
implementing  the  dynamic-variable-space-access  routines, 
investigating  the  effects  of  Ada's  enumeration  I/O 
requirements  and  implementing  mechanisms  to  protect  data 
subject  to  access  by  multiple  processors. 

3.1.1  Run-time  space  allocation 

The  current  implementation  computes  a  task's  space 
requirements  at  compile  time.  Thus,  if  a  task  calls 
procedures  that  recurs^  excessively,  the  precomputed  space 
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may  become  exhausted.  If  this  is  unacceptable  for  a 
particular  implementation,  consideration  should  be  given  to 
a  run-time  space  allocation  scheme. 

3.1.2  System  queues 

The  ready  and  entry  queues  in  the  system  are 
implemented  as  linked  lists  with  a  pointer  to  the  head  of 
each  list.  Therefore,  adding  a  task  to  a  queue  requires 
traversing  the  entire  list  to  find  the  list's  end. 
Possibly,  the  queues  could  be  speeded  up  by  adding  a  queue 
tail  pointer,  but  the  average  queue  length  could  be  so  short 
that  this  would  not  be  much  of  an  improvement. 

3.1.3  Stack-frame  control  data  9 

The  current  implementation  uses  the  same  stack- frame 
control  data  for  tasks  as  it  does  for  subprogram 
activations.  This  results  in  several  unused  words  in  the 
control  data  allocated  to  a  subprogram.  Some  space  could  be 
saved  by  defining  a  new  stack  frame  specifically  for  use  in 
a  subprogram  call. 

3.1.4  Implementing  exceptions 

Exceptions  declared  in  a  block  or  subprogram  must  be 
allocated  space  for  control  information.  Data,  such  as  the 
names  of  the  exceptions  handled  within  the  block  and  the 
location  of  the  handler's  code,  must  be  available  at  fixed 
or  computable  offsets  from  the  BASE  register.  An 
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instruction  to  carry  out  the  run-time  actions  of  raising  an 
exception  must  also  be  written. 

3.1.5  Implementing  dynamic  variables 

No  constructs  that  required  dynamically  allocated  heap 
space  were  implemented.  However,  when  they  are,  run-time 
actions  that  will  be  required  will  include  instructions  to 
load  dynamic  variables  onto  the  evaluation  stack,  to  store 
the  top  of  stack  within  the  dynamic  variable  space,  and  to 
locate  and  manipulate  data  within  dynamically  created  task 
objects.  Once  methods  for  allocating,  loading  and  scoring 
dynamic  variables  and  tasks  have  been  implemented, 
consideration  should  be  given  to  deallocation  and  garbage 
collection.  However,  a  minimal  system  should  not  require 
this . 


3.1.6  Enumeration  I/O 

Ada's  enumeration  I/O  facilities  may  require  the 
addition  of  another  data  block  to  the  stack  frame  and  the 
addition  of  another  register  w'  which  to  access  it.  This 
area  may  be  necessary  tc  he  ASCII  representation  of 
enumeration  types  declared  within  the  associated  scope. 
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3.1.7  Data  protection 

The  data-lock  control  word  was  added  to  the  control 
data  so  that  access  to  a  task's  stack,  frame  could  be  limited 
to  a  single  processor  at  a  time.  However,  since  the 
pseudo-machine  architecture  was  simulated  on  a  single 
processor,  a  mechanism  for  checking  and  setting  the  data 
lock  was  never  implemented.  Currently,  none  of  the 
implemented  instructions  check  this  word,  although  several 
of  them  should.  In  addition  to  protecting  data  contained  in 
a  task,  the  system's  ready  queue  must  be  similarly 
protected.  This  entire  matter  requires  careful 
consideration. 

3.2  Improvements  to  the  compiler 

Improvements  to  the  test  compiler  must  be  based  on  its 
intended  use.  This  section  considers  two  possible  uses  of 
the  test  compiler:  first,  as  a  basis  for  building  a  finished 
compiler  and,  finally,  as  a  tool  in  the  development  of  a 
production  Ada  to  pseudo-code  compiler. 

3.2.1  Towards  a  finished  product 

Several  compilation  tasks  were  side  stepped  in  this 
project  because  of  time  restrictions.  Four  of  these  areas 
include  representation  specifications,  types,  overloading 
and  separate  compilation.  Representation  specifications 
specify  how  types  in  the  language  are  to  be  mapped  onto  the 
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underlying  machine  (Ref  2  :  13-1).  This  issue  was  not 
inves tigated .  Implementation  of  types  was  limited  to 
integers,  only.  The  addition  of  user  defined  types  will 
greatly  increase  the  power  of  the  compiler  and  should  not  be 
overly  difficult.  However,  implementing  subtypes  and 
derived  types  could  be  more  sporting.  Overloading  and 
separate  compilation  are  two  interesting  and  probably  very 
challenging  areas  that  will  likely  have  a  significant  impact 
on  the  structure  of  the  test  compiler's  symbol  table. 
Separate  compilation  will  have  an  additional  impact  on  its 
code  generation  routines  and  will  probably  require  a 
comprehensive  linker  program. 


As  the  compiler  moves  closer  to  completion,  more 
thought  should  be  given  to  improving  the  error  tolerance  of 
the  semantic  routines  and  to  polishing  the  grammar. 
Currently,  the  compiler  checks  for  syntactic  and  semantic 
errors  until  the  first  error  is  encountered.  From  that 
point  onward,  only  syntactic  errors  are  checked.  More  error 
tolerant  semantic  routines  would  allow  continued  analysis  of 
semantics  after  an  initial  error.  The  LR(1)  grammar  used  in 
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in  execution  speed  and  in  minor  decreases  in  memory  space 
requirements . 

The  following  deficiencies  in  the  current  compiler  have 
been  noted. 


Accept  statements:  Accept  statements  for  an  entry 
of  a  given  task,  may  only  appear  within  the 
sequence  of  statements  of  the  corresponding  taste 
body  (Ref  2  :  9-7).  The  compiler  does  not  check 
for  this  restriction. 

Package  body  variables:  Variables  declared  in  a 
package  body  should  not  be  accessible  outside  the 
package.  The  compiler  dees  not  limit  such  access. 

Initialization  of  variables:  The  compiler  does 
not  handle  initialization  of  variables. 

Testing:  The  compiler  program  has  not  received 
adequate  testing  because  of  time  limitations,  and 
some  of  the  implemented  constructs  have  not  been 
tested  at  all.  Be  assured  that  there  are  errors 
to  be  found. 


3.2.2  For  use  as  a  tool 

With  minor  improvements,  the  existing  test  compiler  and 
pseudomachine  could  be  used  as  a  tool  to  begin  the 
development  of  a  production-quality  Ada  to  pseudo-code 
translator.  The  major  improvement  necessary  to  make  the 
test-compiler  useful  for  this  purpose  is  the  implementation 
of  the  basic  structured  types.  In  this  category,  records 
and  one  dimensional  arrays  are  almost  necessities. 
Additional  constructs  that  should  be  added  are  enumeration 
and  access  types.  With  these  additions,  sufficient  power 
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should  be  available  to  write  the  new  compiler  in  Ada  without 
overly  limiting  one's  expression. 

When  writing  the  production  compiler,  the  programmer 
must  deal  wich  the  limitations  of  the  host  processor.  For 
example,  if  the  compiler  is  to  run  on  a  small  machine,  it 
must  be  designed  with  this  in  mind.  This  means  that  space 
saving  techniques  such  as  segmentation  and  multiple-pass 
compiler  design  would  probably  have  to  be  employed. 

This  completes  the  Recommendations  chapter  and  also  the 
main  body  of  the  thesis.  Pursuing  this  project  has  added  a 
staunch  supporter  to  the  growing  ranks  of  Ada  enthusiasts, 
and  I  feel  that  Ada  is  something  that  has  been  needed  for  a 
long  time.  More  power  to  her! 
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1  APPENDICES 

These  appendices  provide  additional  detailed 
information  on  several  topics.  Included  in  them  are  a 
summary  of  an  early  study  on  the  economics  of  commonality, 
background  information  on  LR(1)  parsing,  a  user's  guide  and 
the  PASCAL  source  listing  of  the  interpreter  program. 
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DOD  COMMONALITY  STUDY 


I.  DOD  Commonality  study 

In  July  1977,  DARPA  tasked  Decisions  and  Designs 
Incorporated  (DDI)  to  perform  a  two  part  effort:  first,  to 
modify  decision  analytic  models  to  predict  the  impact  of  a 
common  DOD  high  order  language,  and  second,  to  implement  and 
run  the  models  (Ref  5  :  1 )  . 

Decision  Analytic  models : 

Three  models  were  used  to  accomplish  this  task:  EVAL, 

which  compared  14  attributes  of  the  input  languages,  SPREAD, 
which  generates  predictive  scenarios  given  data  inputs  from 
EVAL  and  other  sources,  and  DECISION,  which  shows  the 
effects  of  different  decisions  given  the  scenarios  generated 
by  SPREAD  and  event  probabilities  estimated  by  the  user. 
Implementation : 

The  table  on  the  following  page  summarizes  the  results 
of  the  study. 

Each  column  in  the  table  represents  a  different 
scenario.  For  example,  column  I  illustrates  the  effect  of 
introducing  DOD  (the  generic  name  for  the  proposed  common 
language)  in  1980  and  achieving  total  acceptance  of  the 
language  by  1985.  (Total  acceptance  is  defined  as  the  point 
where  all  contracts  for  new  software  are  to  be  written  in 
DOD.)  Programs  written  in  other  languages  are  assumed  to 
continue  tnrou0hout  tneir  life  cycles  without  rewrite.  Eucn 
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starts  are  In  DoD;  except  for  CASE  IX,  vticrc 
i  nil  new  starts  are  divided  among  four  languages 
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row  in  the  table  represents  a  different  year  as  labeled  in 
the  Leftmost  column. 

The  data  in  the  table  represents  millions  of  dollars 
saved  as  compared  to  a  baseline  of  exclusive  use  of  assembly 
Lan^ua^e.  Thus,  any  model  that  considers  the  use  of  nearly 
any  hOL  will  exhioit  savings.  For  comparison  purposes, 
column  X  models  the  current  situation;  tnet  of  "no-chan^e" 
in  DCD  5000.31  estimate  (her  5:5).  are  estimated  usin^  a 
software  expenditure  of  3.2  billion  dollars  per  year. 

The  data  is  provided  so  that  tne  reader  can  maxe  nis 
own  conclusions.  The  author  stated  that  for  a  5  year 
introduction  period,  delay  of  the  introduction  from  1980  to 
1987  reduces  savings  by  about  1.5  billion  per  year.  He 
concluded  with 

It  is  recommended  that  tne  DOD  single  common  ni^h 
order  lan^ua^e  be  introduced  as  rapidly  as  possible 
without  penalizing  technical  quality  or 
acceptability...  (Ref  5  :  3) 
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II.  LR(1)  Parsing  automaton 

An  lu(1)  parsing  automaton  is  a  machine  taut  can 
recognize  any  sentence  in  a  particular  deterministic 
Language,  and  conversely,  reject  any  sentence  not  contained 
in  tnat  lan0uage.  To  define  the  machine,  the  term  lun^ua^e 
will  be  defined,  and  a  sample  language  introduced  to 
illustrate  tne  operation  of  the  machine.  Then,  tae 
components  of  the  machine  and  tneir  operation  will  oe 
aescr ibed  . 

A  lan0uage  consists  of  a  collection  of  symbols,  called 
an  alphabet,  arranged  according  to  a  set  of  rules.  These 
rules  are  called  productions,  and  the  collection  of  all 
these  rules,  or  productions,  is  called  a  grammar. 

The  alphabet  of  the  sample  language  includes  only  tne 
following  three  symbols  :  BREAD,  EATS ,  and  JOHN.  Tne 

production  rules  which  Oovern  their  placement  are  listed 
below. 

1.  SENTENCE  SU&JECT  VERB  OBJECT 

2.  SUBJECT  JOHN 

J.  VERB  EATS 

4.  OBJECT  BREAD 

(The  symbol  means  'is  defined  as 1 ) 

This  grammar  consists  of  four  productions.  Each 
production  consists  of  two  parts,  a  left-hand  side  and  a 
right-hand  side,  separated  by  the  symbol  The  number 
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of  symbols  on  the  ri^ht-hand  side  of  a  production  is  called 
Che  lenjtn  of  chac  produccion.  For  example,  the  len0ch  of 
production  1  is  3.  dote  that  tnese  productions  introduce 
some  new  symbols.  The  symbols  SEhTEJCE,  SUBJECT,  VEKb  and 
OBJECT  do  not  appear  in  tne  alphabet  of  the  lan0ua„e  but 
are  necessary  to  descrioe  intermediate  representations  of 
the  sequence  bein0  generated.  Also  note  tnat  only  one  of 
these  new  symbols  does  not  appear  on  the  ri^ht-hand  side  of 
a  produccion.  This  symbol,  SEJTEh'CE,  is  called  tne  start 
synod  of  tne  ^rarnmar. 

The  start  symool  is  a  representation  or  all  tne 
possible  strings  tnat  can  he  generated  by  the  grammar.  In 
this  case,  tne  start  symbol  SEhTEhCE  is  defined  as  a  SUBJECT 
coLLowed  by  a  VEhd  and  cnen  an  OBJECT.  Similarly,  a  suuject 
is  defined  as  JOHU,  a  VEKB  as  EATS  and  an  OBJECT  as  iilEAJ . 
Therefore,  rn  this  ^rammar,  the  start  symbol  represents  tne 
single  string  ' JOIUJ  EATS  BREaD'. 

To  recognize  a  string  in  a  lan0ua0e,  the  automaton  must 
reconstruct  the  particular  sequence  of  derivations  tnat 
be^an  wicn  the  start  symboL  and  resulted  in  tne  strin_,.  It 
the  automaton  accomplishes  this  successfully,  the  string  is 
accepted  as  part  of  the  lan^ua,je;  otnerwise  It  is  rejected. 

The  machine  contains  four  components,  an  input  device, 
an  output  device,  a  memory  device  and  a  control  module. 
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Input  device :  The  input  device  consists'  of  a  tape 
containing  tne  sentence  to  be  checKed,  and  a  head  to  read 
che  tape.  The  read  head  scans  the  sentence  from  Left  to 
ri^nt  and  provides  the  machine  witn  one  symbol  at  a  time. 

Output  uevice :  The  output  device  consists  of  a  blank 
tape  and  a  write  nead .  The  machine  uses  tne  output  tape  to 
store  a  nistory  of  tne  productions  used  to  analyze  tne 
sentence . 

memo r y  device:  The  machine's  memory  device  is  a  stack, 
hacn  time  the  machine  accesses  the  scack,  it  stores  two 
pieces  of  information.  First,  it  stores  a  symbol  from  tne 
0rammar,  and  then  it  scores  a  table  or  its  representation 
used  to  define  tne  machine's  next  action.  These  two  items 
are  referred  to  as  a  data  pair  in  tne  rest  of  tiiis  appendix. 

Contro l :  The  final  component  to  discuss  is  tne  control 
module.  The  control  module  directs  Che  operation  of  tne 
machine's  only  two  functions  which  are  shirts  and 
reductions.  It  determines  which  of  cnese  instructions  to 
execute  by  entering  the  table  stored  on  top  of  the  stack 
with  the  next  symbol  on  the  input  tape  as  an  argument.  If 
the  cable  indicates  that  a  shift  snould  be  done,  tne  control 
unit  stacks  the  look-anead  symbol  and  tne  table  whose  name 
is  stored  witn  the  shift  instruction.  It  tnen  advances  tne 
read  nead  to  tne  next  symbol  on  the  input  tape.  It  tne 
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cable  indicates  that  a  reduccion  should  be  done,  cue  control 
anic  writes  the  indicated  production  nunDer  on  tne  output 
cape  and  looks  up  the  length  of  the  production,  1c  removes 
this  number  of  data  pairs  from  tne  stack  and  tnen  consults 
the  uncovered  taule.  This  time,  instead  of  usin0  che  next 
symbol  from  che  inpuc  tape,  che  control  unit  uses  tne 
lefc-nanu  side  of  cue  production  to  enter  che  cable. 

To  accomplish  snitts  and  reductions,  the  control  unit 
.ost  Know  tne  productions  of  tne  grammar  and  also  che 
contents  r  tne  caules.  Therefore,  the  structure  of  tne 
control  unit  .must  rnclude  a  representation  of  this  data  in 
some  form.  Assume  that  the  control  unit  Knows  Che 
productions  wnich  make  up  tne  sample  grammar  and  also  tne 
contents  of  tne  tables  illustrated  in  the  following  rigure. 


SbhTbuCc 

SU  bJdCT 

VliKd 

03 J OCT 

JOtih 

L  i  \  jL  L 

3  READ 

1 - 

TO 
:i 
i  d 

To 

i  0 
TO 
T7 
To 

ACCK.PT 

T3 

Shift,  T6 

Shift  T8 

_ 

Ti 

Rebuc£,2. 

Shift,  TS 

HEOUCt,  3 
Shift,  T7 

1 

1 

! 

i 

! 

Reaxe, 
■Recoct,  i| 

'(  '  is  a  special  symbol  indicating  'end  of  input'. 

Figure  3-1:  Taoles  for  tne  L R ( 1 >  Parsing  Automaton 
The  machine  begins  wicn  table  TO  on  tne  staex  and  with 
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cue  inpuc  unit:  lookin0  at  cue  first  symool  on  tue  input 
tape.  i’he  machine  will  attempt  to  reco0nice  tne  sequence  of 
symbols  ’JOHN  EaTS  EkEAD1  as  a  legitimate  string  in  tne 
langua0e  specified  by  tne  sample  grammar’s  production  rules. 
The  machine  enters  table  TO  with  tne  first  symbol,  JOaR,  and 
finds  the  entry  ’  shift, T1  1  .  On  this  stiift  move,  tne  control 
unit  stacks  tne  input  symbol,  JOilu,  and  tne  new  taole  found, 
ri ,  and  then  reads  the  next  symbol,  EATS.  The  current  stack 
configuration  is  illustrated  in  the  following  figure. 


INITIAL  STACK  CURRENT  STACK 


(TO  ;  JOHN  EATS  bKEAD  ;  )  (TO  ;  <J0tlN,T1>;  EATS  UREAL)  I  ; 

A  A 

Figure  3-2:  Result  of  tne  ’Shift,  T1 1  hove 

The  symbols  within  the  parenthesis  on  the  diagram 
constitute  an  instantaneous  description  of  tne  macnine’s 
state.  The  symbols  oefore  the  first  semicolon  represent  tne 
items  stored  on  the  stack,  the  symbols  between  the 
semicolons  represent  the  unprocessed  portion  of  the  input 
tape,  and  tne  symbols  after  tne  last  semicolon  represent  the 
contents  of  the  output  tape.  The  left-most  vorJ  of  tne 
input  tape's  representation,  marked  by  A  in  the  diagram, 
is  the  parser's  current  look-ahead  token.  Collectively, 
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these  items  completely  specify  toe  uacnme's  current 
configuration . 

Presently,  the  items  TO,  JOHN  and  T1  are  stacked  and 
the  look-ahead  token  is  OATS.  The  control  unit  enters  table 
T1  with  the  symbol  uATb  and  finus  tne  entry  'reduce, 3'.  On 
this  reduction,  tne  control  unit  writes  tne  number  3  on  tne 
oucput  tape  and  looks  up  the  len0th  of  production  3. 
Production  3  is  1  symbol  lonOI  so  the  control  unit  removes  1 
data  pair  from  the  stacK,  leavin0  tne  following 
configuration: 

TOP 

(TO  ;  OATS  okbAD  ;  2  ) 

Figure  3-3:  Intermediate  result  of  tne  'reduce,  3'  ,iove 

The  control  unit  enters  tne  table  on  top  of  the  stack 
with  the  leftnund  side  of  production  3,  which  is  tne  symbol 
JUdJbCT.  It  finds  the  entry  ' shift, T3 ' .  The  configuration 
of  tne  machine  after  this  move  is  illustrated  in  the 
following  diagram. 

The  machine  continues  in  tnis  manner  until  it  reacnes 
1 AOCtPT'  or  it  cannot  do  a  transition  or  a  reduction.  It  it 
reaches  '  ACCtlPT',  the  input  string  has  been  successfully 
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TOP 

(TO  ;  <SUBJECT,T3>  ;  EATS  BREAD  ;  2  ) 

Figure  3-4:  Final  result  of  'Reduce, 3'  Hove 

parsed  and,  thus,  is  a  part  of  the  lan0uage  specif  led  uy  the 
uranmar.  If  che  macnine  cannot  do  a  transition  or  a 
reduction,  tne  input  string  is  not  part  of  the  language  and 
it  is  rejectee.  fne  following  figure  contains  tne 
instantaneous  descriptions  of  che  machine  for  every  step 
required  to  reco0nize  tne  strin0  'JOHN  EATS  BrEAD'. 

BEGIN 

(TO  ;  JOHN  EATS  BREAD  ;  ) 

(TO ,  <JOHN,  T1>  ;  EATS  BREAD  ;  ) 


(TO,  <SU EJECT, 

T3> 

;  EAfS 

BREAD 

;  2) 

(TO,  <SU  EJECT', 

T3> , 

<EATS , 

T5> 

;  BREAD  ;  3 ) 

(TO,  <SU EJECT, 

T3>, 

<VERE, 

T6>  ; 

;  BREAD  ;  2,  3; 

(TO ,  <SUBJECT, 

T3>  , 

CVEKS, 

TO  > , 

<  BKEaD ,  T7>  ;  ;  2,  3; 

iTO ,  ^SU  EJ EC T , 

T3>  , 

<VERE , 

to , 

<0  EJECT,  TO;  ;  2,  3, 

ACCEPT 

Figure  3-5:  Acceptance  or  tne  String  "JOKU  EATS  BREAD" 

This  concludes  the  description  of  tne  structure  and 
operation  of  an  LR  (1)  parsing  automaton.  Altnou0ii  its 
operation  may  seem  overly  complex,  tne  automaton  is  .veil 
suited  tor  computer  implementation.  In  iuct,  such  an 
automaton  can  be  generated  automatically  by  computer  0iven 
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III.  User's  guide 

This  appendix  describes  che  input  accepted  ay  tne  test 
compiler  and  tne  output  which  results.  Several  example 
pro0rams  are  also  included. 

Input :  Input  to  tne  program  snould  be  an  nda  text  tile 

whose  constructs  have  been  selected  from  tne  implemented 
suoset.  Language  constructs  that  nay  be  used  to  compose 
input  programs  are  listed  below. 

1.  Integer  variaoles.  Number  declarations  and 
variable  initializations  are  not  implemented. 

2.  Package  declarations. 

d.  Proceuures  and  functions  with  parameters  (mode 
types  may  be  specified) 

4.  Tas><  declarations. 

5.  Selected  components  may  be  used  to  open 
visibility  to  oojects  tnat  are  within  scope  out 
which  are  not  directly  visible. 

o.  Most  integer  arithmetic  or  boolean  expressions 
may  be  used  includin0  those  using  snort  circuit 
conditions.  However,  the  following  list  or 
operators  has  not  been  imolemen ted :  MEM,  **,  a, 

IN. 

7.  Tne  foliowin0  statements  may  be  used: 
a.  Assignment 

□.  Procedure,  function  or  entry  calls 
c.  Exit 
J.  Return 

e.  If  I  Hu.)  eLSIif  oLSL 

■ J 
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III.  User's  guide 

This  appendix  describes  the  input  accepted  by  the  test 
compiler  and  the  output  which  results.  Several  example 
programs  are  also  included. 


Input :  Input  to  tne  program  should  be  an  nda  cext  file 

whose  constructs  have  been  selected  from  the  implemented 
subsec.  Language  constructs  that  may  be  used  to  compose 
input  programs  are  listed  below. 

1.  Integer  variables.  Number  declarations  and 
variable  initializations  are  not  implemented. 

2.  Package  declarations. 

3.  Procedures  and  functions  with  parameters  (mode 
types  may  be  specified) 

4.  Task  declarations. 

5.  Selected  components  may  be  used  to  open 
visibility  to  objects  Chat  are  within  scope  but 
which  are  not  directly  visible. 

6.  Most  integer  arithmetic  or  Boolean  expressions 
may  be  used  including  those  using  short  circuit 
conditions.  .  However,  the  following  list  of 
operators  has  not  been  implemented:  REM,  **,  &, 


7.  The  following  statements  may  be  used: 


a.  Assignment 

b.  Procedure,  function  or  entry  calls 

c.  Exit 

d.  Return 

e.  IP  THEN  ELS IF  ELSE 


35 


USER'S  GUIDE 


f.  Accept 

0.  loops  (except  FOR  loop) 

Output :  The  output  of  the  program  is  dependent  on  a 

specially  defined  pragma.  This  pragma  was  added  to  allow 
more  direct  control  of  the  program  throughout  its 
development.  Its  format  is: 

PRAGMA  TOGGLE  (  <0PTI0N_STKING>  ) , 

where  <0PTIG£J_3TkIXG>  is  composed  of  selections  from  tne 
following  list  of  options:  EXECUTE,  TRACESTORE,  PRIXTCODE , 
TRACEPARSE ,  TkaCETOK.  Multiple  selections  must  be  separated 
by  commas . 

All  of  these  options  are  initially  off.  To  select  an 
option,  list  it  in  an  option  string,  and  the  compiler's 
output  will  be  as  defined  below: 

EXECUTE :  If  no  errors  are  detected  in  the  input 
program,  tae  proQram  will  be  executed. 

TRACES TORE :  TRACESTORE  will  do  nothing  unless  EXECUTE 
is  also  selected.  If  EXECUTE  is  selected,  each  value  stored 
during  the  execution  of  an  ISTORE  or  ENTISTORE  command  will 
oe  printed. 

PRIXTCODE :  The  code  generated  by  the  compiler  is 

formatted  and  printed. 
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TRACEPARSE :  Each  transition  or  reduction  made  by  the 
parsing  automaton  is  printed.  This  listing  is  fairly  long 
even  for  a  short  program. 

TRACETOK :  The  representation  of  each  token  passed  from 
the  scanner  to  the  parser  is  printed.  This  represent.;  tion 
consists  of  the  token's  vocabulary  index  as  output  from  the 
automatic  parser  generator  (Ref  13). 

The  following  examples  illustrate  the  effects  of  select¬ 
ing  these  options  given  a  simple  input  program. 


ADA-G  COMPILER 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 

1  —  THIS  EXAMPLE  ILLUSTRATES  THE  COMPILER'S  OUTPUT  WITH 

2  —  NO  CONTROL  INFORMATION. 

3 

4  PROCEDURE  MAIN  IS 

5  A  :  INTEGER; 

6  BEGIN 

7  A  :«  3; 

8  PUT  ("  A  -  ") ; 

9  PUT_LINE  (A) ; 

10  END  MAIN; 


ADA-G  COMPILER 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 

1  --  NOW  THE  SAME  PROGRAM  IS  INPUT  TO  THE  COMPILER  WITH 

2  —  THE  EXECUTE  OPTION  SELECTED. 

3 

4  PRAGMA  TOGGLE  (EXECUTE) ; 

5 

6  PROCEDURE  MAIN  IS 

7  A  :  INTEGER; 

8  BEGIN 

9  A  :  ■  3  • 

10  PUT  ("’A  -  ’’)  ; 

11  PUT_LINE  (A); 

12  END  MAIN; 

A  -  3 
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1  --  OPTION  PRINTCODE  PRINTS  THE  CODE  GENERATED  liY  THE  COMPILER 

2  —  FOR  THE  INPUT  PROGRAM.  THIS  OPTION  IS  SELECTED  IN  THIS 

3  —  EXAMPLE. 

4 

5  PRAGMA  TOGGLE  (PRINTCODE) ; 

6 
7 

3  PROCEDURE  MAIN  IS 
9  A  :  INTEGER; 

10  3EGIN 

11  A  3;  1 

12  PUT  ("  A  -  "); 

13  PUT_LINE  (A); 

14  END  MAIN; 


***  PRAGMA  PRINT  CODE  *** 


INDEX 

MNEMONIC 

LEVEL 

ADDRESS 

0 

JMP 

0 

1 

1 

INCT 

0 

18 

2 

ILOADCONST 

0 

3 

3 

ISTORE 

0 

17 

4 

SPUT 

0 

5 

5 

DATA 

0 

32 

6 

DATA 

0 

63 

7 

DATA 

0 

32 

8 

DATA 

0 

61 

9 

DATA 

0 

32 

10 

I  LOAD 

0 

17 

11 

I  PUT 

1 

0 

12 

RETURN 

0 

0 
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1  —  NOW  THE  TRACESTORE  OPTION  IS  SELECTED. 

2  —  THIS  OPTION  WILL  PRINT  THE  VALUE  STORED  DURING  THE  EXECUTION 

3  —  OF  THE  ISTORE  INSTRUCTION  (INSTRUCTION  NUMBER  3  IN  THE  PREVIOUS 

4  —  EXAMPLE . 

5 

6  PRAGMA  TOGGLE  (EXECUTE,  TRACESTORE); 

7 

8 

9  PROCEDURE  MAIN  IS 

10  A  :  INTEGER; 

11  BEGIN 

12  A  3; 

13  PUT  ("  A  -  ")  ; 

14  PUT  LINE  (A); 

15  END  MAIN; 


***  PRAGMA  TRACESTORE  *** 

EACH  VALUE  STORED  DURING  EXECUTION  OF  AN  ISTORE  COMMAND  IS  LISTED 
3 

A  -  3 


ADA-G  COMPILER 

AIR  FORCE  INSTITUTE  OF  TECHNOLOGY 


1  —  NOW  THE  RATHER  LENGTHY  OUTPUT  GENERATED  BY  THE  TRACEPARSE 

2  —  OPTION  IS  DEMONSTRATED .  EACH  TRANSITION  OR  REDUCTION 

3  —  MADE  BY  THE  PARSING  AUTOMATON  IS  PRINTED.  TO  LIMIT  THE 

4  --  LENGTH  OF  THE  OUTPUT.  A  SHORTER  PROGRAM  IS  INPUT  AS  FOLLOWS: 

5  -- 

6  —  PROCEDURE  MAIN  IS 

7  --  BEGIN 

8  —  NULL; 

9  —  END  MAIN; 

10  — 

11  —  AS  YOU  WILL  SEE,  THE  PARSER  IS  VERY  BUSY  EVEN  WITH  A  SIMPLE 

12  —  EXAMPLE  LIKE  THIS. 

13 
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14 

15  PRAGMA  TOGGLE  (TRACEPAKSE)  ; 

PRODUCTION  13  AND  TRANSITION  FROM  STATE  2  TO  STATE  7 
TRANSITION  FROM  STATE  7  TO  STATE  41 

16 

17  PROCEDURE  MAIN  IS 

PRODUCTION  16  AND  TRANSITION  FROM  STATE  2  TO  STATE  8 
PRODUCTION  15  AND  TRANSITION  FROM  STATE  2  TO  STATE  9 
PRODUCTION  3S5  .-.NO  TRANSITION  FROM  STATE  9  TO  STATE  46 

PRODUCTION  371  .wID  TRANSITION  FROM  STATE  2  TO  STATE  6 

TRANSITION  FRO*  *  STATE  6  TO  STATE  18 

PRODUCTION  274  .iMD  TRANSITION  FROM  STATE  6  TO  STATE  34 
TRANSITION  FRO.  STATE  34  TO  STATE  11 

PRODUCTION  8  ,,.«D  TRANSITION  FROM  STATE  34  TO  STATE  113 
PRODUCTION  280  AND  TRANSITION  FROM  STATE  34  TO  STATE  112 

PRODUCTION  440  AND  TRANSITION  FROM  STATE  6  TO  STATE  35 

PRODUCTION  284  AND  TRANSITION  FROM  STATE  35  TO  STATE  116 

PRODUCTION  232  AND  TRANSITION  FROM  STATE  1 1 6  TO  STATE  207 

PRODUCTION  275  aND  TRANSITION  FROM  STATE  6  TO  STATE  37 

PRODUCTION  271  AND  TRANSITION  FROM  STATE  6  TO  STATE  38 

TRANSITION  FROM  STATE  38  TO  STATE  117 
13  BEGIN 

PRODUCTION  276  AND  TRANSITION  FROM  STATE  6  TO  STATE  39 
PRODUCTION  25  AND  TRANSITION  FROM  STATE  39  TO  STATE  119 
PRODUCTION  441  AND  TRANSITION  FROM  STATE  6  TO  STATE  40 
TRANSITION  FROM  STATE  40  TO  STATE  104 

19  NULL; 

PRODUCTION  204  AND  TRANSITION  FROM  STATE  104  TO  STATE  195 
TRANSITION  FROM  STATE  195  TO  STATE  313 

PRODUCTION  219  AND  TRANSITION  FROM  STATE  195  TO  STATE  333 

PRODUCTION  208  AND  TRANSITION  FROM  STATE  195  TO  STATE  340 

PRODUCTION  202  AND  TRANSITION  FROM  STATE  104  TO  STATE  197 

TRANSITION  FROM  STATE  197  TO  STATE  341 

20  END  MAIN; 

PRODUCTION  200  AND  TRANSITION  FROM  STATE  104  TO  STATE  198 

PRODUCTION  259  AND  TRANSITION  FROM  STATE  198  TO  STATE  343 

PRODUCTION  253  AND  TRANSITION  FROM  STATE  40  TO  STATE  120 
TRANSITION  FROM  STATE  120  TO  STATE  209 
TRANSITION  FROM  STATE  209  TO  STATE  11 

PRODUCTION  8  AND  TRANSITION  FROM  STATE  209  TO  STATE  113 
PRODUCTION  280  AND  TRANSITION  FROM  STATE  209  TO  STATE  351 

PRODUCTION  279  AND  TRANSITION  FROM  STATE  209  TO  STATE  352 

PRODUCTION  277  AND  TRANSITION  FROM  STATE  6  TO  STATE  36 

PRODUCTION  373  AND  TRANSITION  FROM  STATE  6  TO  STATE  20 

PRODUCTION  380  AND  TRANSITION  FROM  STATE  6  TO  STATE  24 

PRODUCTION  372  AND  TRANSITION  FROM  STATE  2  TO  STATE  4 

TRANSITION  FROM  STATE  4  TO  STATE  13 

PRODUCTION  4  AND  TRANSITION  FROM  STATE  2  TO  STATE  5 
PRODUCTION  3  AND  TRANSITION  FROM  STATE  2  TO  STATE  10 
TRANSITION  FROM  STATE  10  TO  STATE  48 
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262  S  t TEMPT R  +  LINROJ  :=  0;  (*LINK*) 

263  S  ITEMPTR  +  DATALOCKOJ  :=  0;  (^UNLOCKED*) 

264  S  ITEMPTR  +  EXCEPTOJ  :=  0; 

263  S  ITEMPTR  +  TASKFLAGO]  :=  1  ; 

266  S  ITEMPTR  +  WAITOj  :=  0; 
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300  ELSE  iJEG I N  (*TASKS  IN  QUEUE*) 

301  (*F1  NO  THE  END  OF  THE  QUEUE*) 

302  TEMPTK  :=  SlTEtlPTKj  ;  (*SET  TEtlPI’K  TO  TtlE  MUST  TASK  IN  THE  QUEUE*) 

303  WHILE  SlTE.lPTK  +  LINKOJ  <>  0  00 

304  TEiIP'I’K  :=  S  [  TEMPT  K  +  LINKOJ; 


}0!i  (*TEMPTk  POINTS  TO  THE  LAST  TASK  IN  QUEUE*) 

306  S  U’EMPTK  +  LINKOj  :=  CUKUENTJOB;  (*LINK  CALEEK  TO  QUEUE*) 

307  END  (*TASKS  IN  QUEUE*) ; 

308  (*C11ECK  TO  SEE  IF  THE  CALLED  TASK’S  ENl'KY  IS  OPEN*) 

309  IF  S  lEFKAilEPTK  +  EGATEO]  =  1  THEN  BEGIN  (*ENTKY  OPEN*) 


7Z 

r-4 

X 

o 

'U 

x 

/-N 

< 

d 

X 

V 

O  O 

M 

tt4 

«?* 

< 

sS 

d 

2Z 

71 

N3  ^ 

-X-4 

— 1  71 

-  ✓ 

>— < 

S3  < 

7'1 

d 

< 

71 

*— ■ 

'  ) 

m 

•‘-5  S3 

^-4 

73 

• 

•oJ 

>4  d 

SS 

as  —3 

7*1 

< 

H  d 

< 

r-4 

d  d 

7J 

d 

T! 

-:t  3 

"3 

9-4 

*— 4 

j2 

|  1 

a  — •  vj 

d 

1-4 

a  a  a: 

< 

<  >  d 

.. 

d 

as  -- 

•  c-#  c-1 

1—4  r— 

— *  ►-<  '/I 

d 

d 

Z d 

d  2S  m 

O 

1 

H  0  3 

*— 4 

r»  — < 

7J 

-  ■"*  ‘“■4  _lJ 

•*\  o 

— H  B 

'-Xl  ^  ^ 

n 

X  d  3- 

o 

o  ^  a, 

OH  -n 

C-4  1-4 

O  x  73 

•  •* 

•»  t-4  t< 

d  3 

'ja  + 

id  3S 

»  d  — •  d  73 

-~v  73  < 

d  d 

C-4 

as  so  O  O 

X 

+  s3  d 

«S  d 

H  <  d  — (  d 

o 

^  + 

O  S/3  1— 1  -•  •«  •- 

H  3 

3  a  d  as  o 

o  d  c  s  —  a,  d 

73  id 

d  d  O,  d 

o 

••>>  o  S3  d  <  n 

•  d 

d  d 

-H7- 

—  sS  -X  •-  O,  -.-t;  +  d  < 

-=  <  +  < 

d 

a.  < 

1-4  v-/  U  TT*  ^  23  • » 

3S  o 

O  ■  d  H 

^-4 

d  — 

+  3  M  d  d  H 

O  -i 

d  < 

C 

.1  -J  ^ 

d  -4  H  d  3u  ||  H 

7*1  H 

-O  +  H  O 

— 

<  H  O 

O  -“SO  —  —  ••  ••  II 

73  33 

7u)  H  2U 

23  __ 

><  tOM  73  H  B 

d  33 

■X 

S3  23-53 

■S 

II 

as  —  ••  — >—> 

d  id 

sS 

<  as  o  d 

*  -73 

H  M  1  ■?  -  d  o  a  — 

-'OX 

d 

d  d  — j  H  c^- 

lij 

S  71  ••  ss  d  >  — »a,  d  d 

■X  d  :U 

o  - 

— 2  H  H  — * 

H  n  O 

d  <  d  -/I  c  o  <  S3  d 

as  o, 

-J 

d  -S  3  73  as 

X 

*.  1-4 

33— •  »  •-<  73  d  d  <  O 

O  H  + 

■X 

as  m  d  o 

■jj  .3 

+  d  O  SS  --^  23  3.S  HE- 

S3  3 

<  >- 

X  O  as  -  S3 

73  — •< 

X  , 

S3  d  H 

H  d 

■-'a,  aS  as  73  •* 

-c  O 

S3  S3  r-  ’  -J  1  1  +  +  +  + 

d  as  3 

<  H 

O  H  d  <-% 

d  H  + 

'/I  H  <  J  J  J 

'J  H  3 

a  z 

d  d  a-  d  x 

3  3 

<  U  MH  0,23:03323 

0  3  0 

X  d 

3  d  — .  7C  O  d 

d 

3  <  as 

•3  II  H  w  d  O  O  O  3 

3S  o  'J 

W 

—i  H  d  as  S3 

d 

*— J  1-4 

3-  a/  3  •J-J-J-J'-J 

3-  — .  M 

d 

d  S3  H  Su  < 

f-^4  +  2- 

:£  +h*  7  _3  H  H  H  H 

d 

d  d  ^  d 

d  -4  3  H  3  3  3  3 

d  2S  II 

23  >  ||  -.  o  J 

•* 

«  a:  d 

£-4  V— 4  f|  —4  LsJ  ’-J  -J  '«J 

S3  O  •• 

•d  d 

d  ••  c/d  o  d 

1-4  1-4 

d  — 4  ••  o  as  O  as  :S  3  aS 

<  S3 

d  X 

••  w|  ^  J  ^ 

•-1 

II  d  3  d  --H  35  aS  2S  3S 

d  S3  H 

33 

as  as  --  O  d  X 

-r* 

■■•-HHUE-a  3333 

d  'd  s 

d  H  H  as  O  >  ' 

< 

H  d  -73 

33  3  3  3  3  3  3  3 

d  d  33 

d 

sa  d  34  d  a  — i 

2d  ^  ^ 

•— 4  jJ  jJ 

3fi  O  3 

—  a 

<C  as  o  H  a  -JO 

4 

*r  — 4 

* 

X  d  o 

d  o 

d  X  d  33  d  X  3 

fx, 

73  -3  S3  73 

Ot  r* 

73  d 

dvHa-,3  V4»  -d 

as 

H  72  — » 

d 

d 

H 

o  —  -"S  -o-j  joor^cooo  — 

N  m 

O  O'  -S3  O 

0-NO-f/ior> 

rD 

0  —  .-3 

N  N  N  CN  CN  sN  7>J  N 

.-a  m  ,-n  to  .-o  ,-o  ,-o 

rO  .O 

-t  -a-  <r 

m  rn  m  m 

o  o  o  o  o  to  m  o  o  o 

ro  .0 

34  J  (S  U'EMPTK  +  WAX  TO  J  =  1)  THEN  (*PAKEHT  NAITLNG  TU  TERMINATE*) 

344  (*WAKE  UP  PARENT*) 

343  ENTER  INI)  (TEHPTK,  S[TEilPTK  +  PRIORI TYOj); 

346 


2  2 

3  < 

2  a 

3  * 

<  J 

\  a  a 
-X  VJ  > 

■x  a  -x 

■X  O'!  J  3 

-  ^  a 

*!c 

aa  a 

O 

a  a  a  a 

5-*  'll  '73  i— I 

O 

73  h  <;  a 

O 

a  a 

2 

H  3  3  a 

3 

j 

«  A 

a  2  a 

a 

'z* 

1 

■J 

22a 

H 

I 

-3 

a  a  a  o 

3 

^  a  <  p 

3 

zl 

»— -4 

•x  a  a  «  a 

a 

> 

a  ••  -73 

< 

0 

II 

a  a  a  <C 

a 

— \  •» 

■p 

r— 

3 

X  3 

•J 

O  | 

2  2  P  x 

a 

a.  a  •- 

vj 

~  •~t  — • 

73  a  a 

a 

X  2  •-  3  II 

C-l  '— 1 

<;  -a  a  -a  3 

a 

a  3  —  a  •• 

a 

'<  3 

P  <C  3  3  a 

32  a 

—** 

p  2 

3  a  a 

n 

3  <  1  a  a 

71  a 

-  3  3 

0 

3  2  3 

•  J 

O  2  a  3  2 

a  a 

3  —  11  a 

• 

— «  a 

3  a  <  a 

3 

X  3  --o  a  •  -  a 

75 

2  3 

*  a  a  a 

a  a 

a  3  ,-n  p  X  2 

u 

•  *» 

3  a 

ana  a  3 

a  a 

2  2  3  3  3 

ID 

— ■* 

/)  P 

a  3  3  h  a 

3  3 

2  2  3  <  3  P  3 

-U 

*— 

VI  a 

<3333 

a  3 

a  -J  a  P  <  X 

3 

3  3 

a  a  <  a  a 

a  3 

3  P  <  +  a  P  3 

O' 

+ 

I 

'J  'J 

a  a  3  a 

a  2 

a  2  •  a  3 

*2 

1 

i 

3  >i 

a  a  a  7-3 

3  a 

a  3  2  a  3  •  • 

>• 

0 

2  3 

a  3  p  a  a 

3  3 

3  a  — *  P  — 1  — » 

a 

— -i 

1 

&. 

2  a  2  <  3 

3  * 

23  -a  22 

<  - 

} 

'*>  H  + 

•  * 

•x  a  a 

CL.  — 1 

a  —  2  a  p 

zJ  «-N 

1 

j 

X  3  . 

-a  a  3  'a  a 

2  a 

:Ov|  323 

^  -fc 

+  O 

a  3  P 

a  a  -  3 

3  — 1 

•*H  3  ••  -a  rr:  3 

'p 

0 

l 

J  2J  3 

J 

3  3  3  3 

■a 

a  <3  -a  a  2 

'-N 

— * 

i 

a  a:  3 

i-l 

3  a  <  V 3  3 

2 

a  a  — ■  3  p  p 

X 

rvi 

O 

V3  3  3 

< 

a  <2 

3  3 

II  P  *1:  3  3^-— < 

3 

t-4 

«—  — - 

j 

3  3 

3  2  H  3  ••  P 

a  •• 

/\  2 

3  p  3 

2 

_  J 

-n  11  h 

3  — <a 

a 

a  ••  <  x  0 

a 

V  3 

3  2  2  2 

-  y 

••3 

1 

•• 

a 

a  -a  a  — 

a  2 

2 

3  <  3  3 

5 

2  3 

a  a 

H  — • 

<21 

..  ^ 

a  a  3  11 

3  p 

2  a 

a  71 

a 

2  2 

H 

••  i-<  — "9 

2  3" 

3  3 

••  a  a  a  a  ••  o 

3  2 

P  2  3  +  J  -a 

-a 

3  X 

2  3 

3 

— -H 

a  a 

3  H 

baa' 

2  2 

3  3 

2  2 

•a 

3  a 

3  X 

a 

1) 

— « *,0  O 

2  a  H 

3  X 

223232 

3  a 

3  2 

II  a  3  3 

3 

2 

3  -a 

73 

•  • 

H  ID  ID 

2  3  2 

3  a 

a  2  a  2  P  a 

a 

3  3 

••  — .  a  3 

3 

3  3 

a 

— «4  I4  ^ 

3  3  3  3 

<  X  3  3  a  2 

2 

P  X 

X  2 

3  2 

3  X 

•• 

.D  — «  fjJ 

P  3  3 

3  a 

PX  3  2  3  2  2a 

a  a  a- 2 

3 

a  a 

a  a  n 

X  2  3 

3  2 

3 

-J 

3 

a  3  a 

-a  3 

.J  ‘-'H  -*4 

M-l 

a 

-J 

'J 

5 

I— I  '5 

2  '0 


Is*  3  C\  3  —  M  m  'J  -1  sO  r>»  -0  ^  o  <—  rt  .1  -<f  a>  O  f"  -0  3\  2  —  .'J  .p  -3  3  >.  3  3  o 
n  p  p  p  ~i  p  n  ."’')  p  p  p  c">  p  p  r->  n  p  ppp  cn  p  n  .-i  p  p  p  p 


NUliAJh.  (LLVEL, BASF 


3 

y 


-x 

3 

73 

-3 


3 

K 


■X 

X 


'.3 


» - -  3 

■  ••  o  o 

3  B 


O  3 

n  n 


.n 

I 


a  o 

B  B 


3 

II 


3 


B  3 

..  >4  . 


3 

Z 

y/ 

—4 

•  • 

y 

C2  ^ 

y 

Vi  * 

3 

O  o 

y 

■3 

n  < 

3 

••  x 

3 

•K 

3 

as 

—4 

3 

H 

3 

— > 

3 

y 

vi  a 
z 

y 

a; 

•J 

VJ 

" 

Lj 

-/ 

j 

a. 

•  t 

■j 

1-1 

—  M  -3  >3- 

y  y  y  y 

—4 

m 

r>  to 

A 


+  — -X  3 
—  .3  H 
3  <3 

X  +  H  < 

3  +  + 

J  3 

3i-- 


3  3 
H  i, 
M  < 

C  3 
3  3 


—  3 
3  3 
3  33 
33  < 

<  a 
a  h 


3  as 
X  3 
3  3 

-*  as 
a  y 


3  3 
as  y 
3  y 

y  y 
y  o 
<  x 
•j  >j 


++++++++++ 


3  ■ 

z 

as 

3 

3-4  , 

y 

as 


VJ  3 


+  +  +  +  +  + 

y  y  y  y  y  y 
y  -3  a  .3  y  y 


+  + 

y  y 

— - _ » 

y  y 


+  + 

y  y 
y  y 


+  + 
y  y 
y  y 


3 

VJ 

—3 

VJ 

V 

+ 

'O 

j— ♦ 

i— < 

— - 

1 

/J 

II 

m 

VI 

— ^ 

i— i 

Vi 

O 

73 

V. 

1 

a 

o 

y-4 

-  a" 

5 

1 

n 

* 

*  • 

y 

'-N 

V* 

vi 

*—4 

Q 

a 

XJ 

< 

73 

3 

—4 

•  * 

1 

•— 

■3 

-J 

Z-i 

-J 

'W' 

1 

> 

_4  •• 

VJ 

73  -n 

k—B 

—3 

V 

3  ■  ** 

• 

H  .*« 

u 

x-4  Vi 

-✓ 

••  Vi 

•  • 

o  a 

vj  a 

— *  ~ 

H 

23  < 

O 

• 

C-B 

i  <2 

rz 

••  hH 

_ 

^  v: 

>-4  •  • 

^  < 

3  3 

o 

H  + 

II 

a, 

3  Z 

rz 

V* 

i  * 

y  3 

VJ 

H 

w» 

«• 

*-4 

•  * 

5  * 

V)  zj 

< 

3 

<2 

P 

3 

vi  H 

-Li 

-j 

3 

< 

3 

3' 

2* 

3 

3 

m  <r 

-A  O 

JO^  3 

3 

y 

-1 

-x 


O  r>*  y 


LUJ;  MODIFY  FOR  Ui FFlKFU T  AKGUHFUT  TYFFS*) 


— * 

73 

< 

23 

— «i 

+ 

• 

r— 

-J 

^■N 

14 

IsJ 

* 

+ 

~  -» 

> 

u 

73 

03 

■  "* 

*-4 

— J 

II 

"X  —N 

72 

73 

V 

a  -X 

1X4 

-■< 

73 

72 

— -i 

73 

3  a 

73 

3 

H 

< 

32  <2 

.-<* 

— « 

23 

a  a 

'-4 

Vf 

£—4 

73 

a 

m  Vi 

23 

3 

Vi 

73 

a 

73 

t— « 

<  a 

• 

73 

c 

a 

_ 

* 

■* 

* 

:  - 

25 

'.  t 

•/ 

II 

a 

o 

73  a 

i 

73 

•  • 

73 

-  — : 

13 

-3 

o 

ii 

3fi  — .  J 

<  - 

— ■- 

«• 

II 

a  o  < 

u  — 

<* 

f-4 

n 

J2!J 

o 

3 

— J 

— * 

_3  a 

73  22 

73 

H 

<  J  a 

33  — 

73 

X-4 

CJ  -3  3 

H  ^ 

H 

73 

L-t 

<  H  - 

•  - 

-3 

X-4  •  • 

•• 

•• 

73 

a  rj  — . 

— i 

lx-  < 

•  *  •— 1 

«— 

•-N 

-0 

a  a  a 

2S 

O  ■>-> 

O4  — »H 

.* 

+  3  a 

a 

O  ^4— 4 

+ 

73 

•  «» 

a  3 

a 

73  + 

lx-  73 

J 

•  « 

■^acuH 

< 

70 

04  O 

H 

« 

V— 

1 

<33 

• 

<  a  a  a  n 

73 

+ 

a  ->  H  + 

32 

=3  3 

— H  ■  • 

II 

V 

1 

H 

j-H 

M 

+ 

•  • 

H 

'J2J3  2S 

1x3  H 

a  — > 

-J 

H 

It 

SiJSH 

+  - 

rs  22 

a  a  a 

•• 

H 

3 

II 

H  ^ 

H  7J 

a  c_t  a 

»— 1 

II 

32  S 

as  -X 

■v/ 

a  a 

■X 

“3 

1X4 

H 

33DOiJ 

a  a 

zo^ 

O  -2  < 

a 

— < 

73 

H 

a  H  a  — •  H 

a.  < 

M  H  3 

a  a  . 

a 

a 

Q 

a  H 
a  as  — <  aa  — .  I 
a  h  w  H  v: 


'j 

a 

a  a  — — 

^  H 

a  a 

+  —  *H 

.. 

•• 

73  »  •- 

a 

a  — 

a  •* 

35  ii  r:  4 

a  a 

••  S  It  *5  II 

^—4 

••  a 

'J  •- 

a  a 

a  a 

••  a  "a  ••  + 

a 

a  ••  a  •• 

a  i  a 

a  a 

a 

a  TS 

•a  a 

a  3 

a  h 

H  -X 

a  a  a 

a  a 

a  3 

a 

m  h  -a 

a  3 

■•  a 

a 

a  a  a  h 

•  ■  V./ 

a  a  as 

a  a  -x 

a  a 

*" 

a 

>■ 

<  H  H  H  H 

O  H  H  H  H 

a  s/ 

o 

o 

cr 

o  a  a*  a  a  a 

— 

r-*  a  a  a  o* 

a  n 

a 

a 

a 

a 

a  73  ^  73  s  •• 

a  a 

a  a  S  vs  :5 

a  ..  a 

a 

a 

73 

73 

<c 

a  -X  a  -x  a 

— 3 

a  *  a 

— t  r* 

•2 

< 

73 

73 

o 

H  'a  S-i  H  a 

a  a 

a  ■a  a  a 

ana 

a 

3 

a 

a 

a 

"*» 

a 

a 

a 

a 

a 

a 

a 

a 

a 

r-.  a  c*  3  «—  ;M.-n  J’iO  Jnj  SO<-. N  .• n>ti/io^73Ci3<—  .-N  n  -J1  a>  oissjiC  - 
-nj^inoooooooooor^r>Nr^p^r^r^r<.p>»p^r^coi3»co^^coro--o;oj'rNr>r*J' 


H 

.. 

3  23 

3  <"N 

3 

3  O 

— * 

t-i 

H 

> 

•  - 

'~'-X 

3 

O  '-i 

3 

— 

■-»  3 

■ « — -< 

3  3 

3 

*• 

•  *  •  o 

73  *-< 

*-♦ 

M 

* 

H  3 

— *o 

73  < 

3 

a.  3 

3  3 

O 

o 

3 

O 

3  3 

a  3 

<  3 

3 

<  33 

3  3 

04 

o« 

3 

a» 

<  H 

3  3 

H  3 

.  „ 

| 

3  ■< 

3  3 

*— 

< 

■  • 

3  M 

v— 

32  23  — 

O  X 

O 

3 

X"N 

>•  3 

3  3 

ai  3 

3 

3 

3  3 

~T 

1 

7Z 

23 

* 

73 

H  3  O  3 

H  3 

04 

II  II 

3 

u 

C  II 

3  * 

^4  — t 

••  “< 

••  ••  H 

H  + 

“H 

H 

H 

3 

22 

3  +  3 

H 

II 

•* 

~y 

< 

< 

♦—1 

3  — i 

> 

H  M 

—  O 

•  • 

— *■— » 

3  t-t 

O 

II 

O 

H 

o 

H 

*  O 

+  U  7  H  < 

O  H 

0  3  — 

3 

3 

O  ••  3 
3  a  a 
a  rs  -x 


•  73  H  <  3 

3  <:  O  3 

H 

<  —  '-',3  1 


23 

3  _*73 

vi 

<  73  II 
23 


V3 

3  — * 

,, 

3 

O' 

3 

•• 

•• 

3  3  -73 
3S  73 

3  a 

73 

> 

’S 

O-X  3 

3J 

H  Q 

M 

»-* 

S3 

H  >-'1-1 

0  < 

<$ 

a 

3 

O. 

■r  v 

2 

3 

3  3 

3  3 

O  3  C 
Zm3. 
■X  O  , 

5h 
3  3J 
O  73- 
33  3  * 
3  73  ^ 
-3 
3 


73  Js< 
3  C  O 
3  M  H  ’ 


i 

i  -3  S  H 
i  H  3  *  3 

|  ^  Q  ^_y  -£ 

>33  + 

10  3  3^ 
13  3  3 
l  H  71  31  a 


w3ON3?i0-Nn^J3ONar'C-Nn^iAON»C'0-N^^."iOr'S3^3-:4 
J>  3\  ^  3i  Ji  O  3  3  O  O  3  3  O  3  O  N  N  N  N  N  N  N  .N  N  N  Tin.n 

'J'T>f'j'Ji/i7ii/iiri7ii73i/v.3ir>inu3J3iniAi/3L'3inini.3L3  7iiriy3u3inininiAininj3in  n 


lUThlKPKCTiiK  bOUKCL  LLbTLMG 


73 

II 


as 

a 

a 

<3 


as 

S3 

S3 

< 

cu 

< 


a. 

3 

73 

3 


O 

3 


+  3 


■  «* 

’ .y  _ ^ 

•  • 

—1 

73  jj 

01 

r— 

C  35 

, — 

33  3 

^"N  jj 

' — V 

+ 

«H 

•  «* 

73  73 

+  3J 

/— N 

—3  73  •« 

f— 

a  a 

S3 

H  U 

U3  jj  ^ 

3  < 

H  a 

ID 

— •  3 

“ 

>  3  — • 

+ 

3  H  H 

— <  < 

02 

71  ^  02 

• 

73  <  ■-* 

a-v  ' 

73  3 

H 

-J  H 

Ja!w 

H 

a  *• 

SJ  V-4 

+  ^  w 

'~'H  73 

Ha  a 

+  3 

H  Q 

S  > — .*  ■  * 

H 

as  as  * 

H  a 

Q  •«* 

o2 

73  — 

•  • 

0  3  OH 

* 4  3 

02  ^ 

-H  —  O 

-C  r  3 

O 

-H  O  O 

o* 

t—  __i 

3  33  3  _J  1 

H 

ii  h  n  3 

_ i 

02 

75  n  ii 

hiSH'S 

•*  *•  .'J 

73  11  11 

II  O 

1 

OZhHH 

■3 

T3 

— .  -K 

3  1 

..  Vj 

~w 

II  — 

31  >-•  3  h 

— < 

>-4 

H  — .  — i  ^ 

*-l  II  — « 

* 

—* 

^  •  •  '—4  - , 

a  s*4  vs  as  n  - 

"J 

O 

—  H  H 

■J  a  ..  i_i  — ^ 

— «N-/ 

o 

L*t~* 

— <  3  ••  a 

0J 

OJ 

73  — <73  — 

73  — H 

i-j 

»  —•Vi—' 

a,  3 

a 

:Q 

73  73  73  a 

a  n  — .  -a  — <  a 

2Q 

••  H  00 

•  • 

73  H-t  H  33 

zz 

H  _J  3 

••  H  73  73 

71  a 

— ■  j* 

-d 

..  U 

•  • 

-H  73  '-x3 

— <t*4  J 

3 

•  • 

H  73  H 

as 

••  H  73  i— 4  a3 

a 

O 

-v; 

S3 

'— i 

'^3 

o 

3S 

O 

73 

73 

3 

O 

X 

vj 

Nl 

>1 

>3 

cn 

ifu3  0rs3!?0^ 

N  rl  in 

N.'l-S.nO^J3\3- 

r>j 

.-o  n  n  .1  ri  n  .1  -f  -J  -J  ^  -f  in  in 

(Tt  S\  71  -A  LA  lA 

m3  O  O 

vd  o  o  o 

-a  -a  la  ia  ua 

1 


567  KLSK 

566  b  l  T ]  :=  OKU  (t'ALbbl) 

56'7  isML>  (*ZXOK*); 

5/U 


INTERPRETER  SOURCE  LISTING 


'Jj 

a 

a  a 

a 

a 

•-* 

S 

z 

a 

o 

S,/ 

z 

it 

o 

a 

■  - 

-a. 

z 

a 

a 

a 

.  o 

a  Z 

a  a 

a 

a  o 
a  2 

< 

a 

ii 

o 

<: 

a 

a 

•  • 

a  ,a 

H  a 

o 

c 

a 

•K 

a  o 

a 

a 

z  o 

a  a 

*  a 

a 

! 

z 

o 

o  o 

<— >z  a 

a 

1 

a 

a  it 

a  a 

a  a  a 

* 

o 

a 

a  a 

o  a  a 

s/ 

H 

a 

b  u 

a  a 

a  a  o 

a 

a 

•O  a 

a  a 

a  a  a 

z 

a 

• 

a  ♦ 

o  a 

a  a 

a 

a 

~ — • 

X 

a  a 

a  o  H 

a 

a 

a 

a  a 

a  a 

o  a  z 

a 

a 

o 

o 

H 

a  a 

CQ 

H 

a 

it  a. 

H  Z 

z 

a 

/\  a 

x  a 

H  a  a 

z 

a 

a 

a 

a  a 

z  a  a 

a 

a 

a  o 

z  a 

a  o  a 

as 

z 

o 

z  o 

a  a 

H 

•  -a 

a 

a  a 

a  u 

a  a  ii 

a 

a 

o  a. 
a  H 
M  Z 
a  <ai 

a 
as  ai 
O  S3 
--N  SJ 
*  — ■ 
a  O 
35  as 
<  It  O 
U  v) 
*  O  a 

wa  CJ 
wa 
O 

a  J  as 

ZHl 
Cd  H 

a  a 

3  a 


a  a  ii 

3 

as  H 
H  O  as 
a  O 
It  »J  33 
••  Ui  33 
33  tit 

z  *  a 

o  -^o 

a  a; 
H  Z  a 
<hH 
z  a  z< 

a  a  a 
S  33  « 
2  os 
U  a  3 

H  33  U  i 
J 

a 


D'd  •• 
U  'O 

— *0  as 

a  o 


33 

as 
O 
33 
•-33 
t — •  a 

*  *o 
•-a  o 
a  a 

M  C3j 

+  i§ 

a*  Z 
•a 

II  /\ 

■•  a 

Z  M 
a  a 

a 

a 


DC3* 
3S3H 
H  a  a 
a  O 
II  O  «3 
••  O  < 

a 

z  as 
o-  g 

a  aS 
<  z  a 
z  a  * 
a  a 

a  as  z 
H  Z  a 


)  -K  * 

-h  a 
a  h 
s  a 
t  a  h 
i  mo  •- 
I  33  Z  <-** 
I*  * 
IwUH 

>  a  a 
<  a  a 
i  Q  S3  a 
Z33S 
a  *  a 
•aa 
Z 


—  M(*1'JiTi\0S300'O^N(n<l,i/3v0lka30'O*- 
rsr>NMNrNNikr>coo3oo«oa3cOcocococoJ»a' 

iflimnimfiiAiruniruniA'St^iAiAininio/unin 


107 


VITA 


VITA 

Alan  R.  Garlin^ton  was  born  on  20  August  1951  in 
Chicopee,  Massachusetts  Co  Arthur  K.  Garlin^ton,  Jr.  and 
Claire  Y.  (Cournoyer)  Garlin^ton.  He  attended  ni^h  school 
at  Rome  Free  Academy  in  Rome,  New  York  and  0raduated  in 
1969.  In  June  of  that  year,  he  entered  tne  USAF  Academy  in 
Colorado  Springs,  Colorado  and  subsequently  graduated  with  a 
Bachelor  of  Science  Decree  in  Electrical  En^ineerinu  in  June 
of  1973.  His  first  Air  Force  active  duty  assignment  was  to 
0nderoraduate  Navigation  Training  at  Mather  Arts  in 
Sacramento  California.  He  0raduated  in  April  of  1974  and 
entered  Electronic  Warfare  Training,  also  at  Mather.  Upon 
graduation  from  Electronic  Warfare  Training  in  October  of 
1974,  he  was  assigned  to  the  62nd  Bombardment  Squadron,  2nd 
Bomb  Win<j  (SAC),  at  Barksdale  AFB,  Louisiana.  In  March  1973 
ne  was  assigned  duties  as  win^  electronic  warfare  officer 
where  he  served  until  entering  the  Air  Force  Institute  of 
Technology  School  of  Engineering  at  Wright  Patterson  AFB, 
Ohio  in  Sept  1979.  He  is  a  member  of  Tau  Beta  Pi  and  Eta 
Kappa  Nu. 

Capt  Garlington  was  married  on  29  December  1973  in 
Rome,  New  York  to  Pasqualina  J.  OiMarco.  They  have  one  son, 
Christopher  Alan,  who  was  born  on  12  September  1979. 

Permanent  address:  6623  Williams  Road 

Rome,  New  YorR  13440 


108 


SECURITY  CLASSIFICATION  OF  THIS  PAGE  (Whan  Data  Emend) 


REPORT  DOCUMENTATION  PAGE 


I.  REPORT  NUMBER 


READ  INSTRUCTIONS 
BEFORE  COMPLETING  FORM 


2.  GOVT  ACCESSION  NO  .  3.  RECIPIENT'S  CATALOG  NUMBER 


AFIT/GCS/MA/81M-1  V 


4.  TITLE  (and  Submit ) 

PRELIMINARY  DESIGN  AND  IMPLEMENTATION 
OF  AN  ADA  PSEUDO-MACHINE 


7.  AUTMORfAj 

Alan  R.  Garlington 
CAPT,  USAF 


9.  PERFORMING  organization  name  and  address 

Department  of  Mathematics 
AFIT/EN 


it.  controlling  office  name  ano  address 


5.  TYPE  OF  REPORT  4  PERIOO  COVERED 


MS  THESIS 


6.  PERFORMING  ORG.  REPORT  NUMBER 


8.  CONTRACT  OR  GRANT  NUMBERf»2 


10.  PROGRAM  ELEMENT.  PROJECT.  TASK 
AREA  4  WORK  UNIT  NUMSERS 


12.  REPORT  DATE 


March  81 


13.  NUMBER  OF  PAGES 


14.  MONITORING  AGENCY  NAME  4  AOORESS (tl  dlltarant  from  Controlling  Oltica)  I  15.  SECURITY  CLASS,  (of  ’.hit  raport) 


IS*.  DECLASSIFICATION-  DOWNGRADING 
SCHEDULE 


!«.  DISTRIBUTION  STATEMENT  (of  Ibla  Raport) 


Approved  for  public  release;  distribution  unlimited. 


17.  DISTRIBUTION  STATEMENT  (o t  the  abatrect  entered  In  Block  20,  It  different  from  Report) 


IB.  supplementary  notes 


APPROVED  FOR  FwT.L;:  RELEASE  AFR  19017 

Air  Force  Institute  of  Technoicjy  (ATC)  FREDHIC  C 


?  »  MA 


ijULt  C „  Lwu.C 

lie  c.  LYNcrfwojor,  USflF 


Wright  Patterson  AfB,  OH  43433 


Duccio.  cf  Public  Affairs 


IS.  KEY  WOROS  fConilnu#  on  rover  we  aide  If  neceeeery  end  identify  by  block  number) 

Ada  Pseudo-machine 

Compilers 

Computer  Programs 

Microcomputers 

Minicomputers 


20.  ABSTRACT  ( Continue  on  rovoroo  aide  If  neceaamry  end  Identify  by  block  number) 

"  -4  # 

This  project  involved  defining  an  Ada  pseudo-machine  and  developing  an 
Ada  to  pseudo-code  test  translator.  The  translator's  front  end  incorporates 
a  table-driven  parser  that  can  parse  the  entire  proposed-standard  Ada  language. 
The  translator's  semantic  routines  allow  integer  data  objects,  several  control 
structures,  procedures,  functions,  packages  and  tasks.  These  routines  generate 
pseudo-code  that  is  executed  by  an  interpreter  program  included  in  the 
translator.  The  interpreter  constitutes  a  complete  description  of  the  pseud 
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BLOCK  20  continued: 

machine  whose  architecture  consists  of  multiple,  st£.ck-oriented  processors 
that  access  a  common  memory.  Interesting  features  of  the  project  include 
the  hash-coded  symbol  table  that  supports  Ada's  visibility  rules  and  the 
pseudo-machine  architecture  that  supports  Ada's  tasking. 
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